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I.  INTRODUCTION 


! This  manual  describes  the  computer  programs  used  to  perform  the 

Abandon  Ship  Computer  Simulation  Model  (ASCSM)  and  the  Man  Over- 
board Computer  Simulation  Model  (MOBCSM)  simulations.  The  S'mu- 
lations  run  entirely  on  a micro  (or  mini)  computer  and  were  speci- 
fically designed  for  operation  on  a Wang  2200  System.  The  programs 
interactively  acquire  the  information  required  to  perform  a simula- 
tion. For  the  ASCSM  the  microcomputer  then  performs  the  simulation 
and  prints  a report  which  tells  the  user  the  input  conditions  and 
the  results  of  the  simulations.  For  the  MOBCSM  the  same  result 
is  achieved,  but  the  interactive  part  of  the  sequence  resides  in 
a separate  program  which  writes  a disk  file  containing  the  in- 
‘ put  information  for  one  or  more  simulation  runs.  The  program  that 

performs  the  simulation  for  the  MOBCSM  reads  input  information  from 
the  disk  file,  performs  a simulation  run,  prints  a report,  and  writes 
an  out-put  file.  A third  MOBCSM  program  reads  the  output  file  and 
produces  another  report;  this  may  be  useful  when  multiple  copies  of 
t the  same  simulations  are  desired. 
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2.  ABANDON  SHIP  SIMULATION 


The  Abandon  Ship  Simulation  divides  into  three  parts:  the 
Operator  Program,  the  Simulation  Program,  and  the  Output  Pro- 
gram. The  Operator  Program  provides  an  interactive  input  scenario 
to  the  operator  asking  for  each  piece  of  information  needed  to 
complete  the  data  set  required  to  perform  a simulation.  The  spe- 
cific questions  appear  in  the  User's  Manual  and  in  the  program 
listing  in  Appendix  A.  The  Simulation  Program  performs  the  number 
of  simulations  specified  in  the  data  set  generated  by  the  Operator 
Program.  Each  simulation  data  set  contains  values  for  variables 
that  either  remain  constant  for  all  the  simulations  or  determine 
the  parameters  of  random  variables.  After  each  simulation  for  a 
given  data  set  the  output  data  set  is  updated  to  form  the  basis 
for  the  output  report  on  the  simulations.  The  Output  Program  takes 
the  output  data  set  produced  by  the  simulations  and  prints  a neat 


looking  report  consisting  of  the  input  parameters  set  by  the  Opera- 
tor Program  and  a statistical  summary  of  the  simulation  results. 

The  Abandon  Ship  Simulation  consists  of  a main  program  and  a 
number  of  subroutines  all  written  in  BASIC*.  The  main  program 
appears  in  Appendix  A on  page  1.  Note  that  it  consists  mostly  of 
calls  to  subroutines  (e.g.  GOSUB  1504).  The  main  program  calls 
the  subroutine  at  9000  to  set  the  cursor  on  the  video  display  to 
the  upper  left  corner  ("home")  of  the  screen  and  erases  the  screen;  it 
then  displays  the  program  title.  The  main  program  then  asks  for 
the  serial  number  and  initializes  all  variables  and  arrays.  The 
subroutine  called  in  line  1014,  beginning  in  line  1504,  and 


appearing  on  page  A-2  uses  the  data  statements  on  page  A-3  from 
line  1372  to  line  1440.  In  the  main  program  line  1016  randomizes 


the  random  number  generator  by  calling  for,  but  not  using,  a num- 
ber of  random  numbers.  The  number  of  random  numbers  thus  skipped 
equals  the  integer  part  of  the  serial  number  supplied.  The  sub- 

* BASIC  is  a registered  trademark  of  Dartmouth  University. 
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routines  called  in  lines  1018,  1020,  and  1022  constitute  the 
Operator  Program.  The  subroutine  called  in  line  1024  is  the  part 
of  the  Output  Program  that  prints  the  input  data.  Lines  1025 
through  1040  constitute  the  Simulation  Program  while  the  sub- 
routine called  in  line  1042  completes  the  Output  Program;  line 
1044  goes  back  to  start  another  run. 

2.1  Operator  Program 

The  Operator  Program  consists  of  three  subroutines.  The  subrou- 
tine beginning  with  line  1046  handles  the  ship  characteristics. 

The  subroutine  beginning  with  line  1102  gathers  the  rescue  boat 
characteristics.  Line  1134  begins  the  subroutine  that  takes  care 
of  the  casualty  type  and  the  number  of  simulations  desired  for 
the  run.  These  three  subroutines  appear  on  pages  A-4  and  A-5. 

The  subroutine  that  handles  the  ship  type,  beginning  in  line  1046, 
first  "home"s  the  cursor  and  erases  the  screen  (line  1048).  The 
subroutine  then  puts  "SHIP  CHARACTERISTICS"  followed  by  the  menu 
of  ship  types  on  the  video  display.  The  response  to  the  question 
"NUMBER?"  (line  1058)  is  limited  to  the  available  ship  type  num- 
bers by  lines  1062  and  1063.  If  the  user  enters  a number  out- 
side the  range  of  numbers  on  the  menu,  the  program  asks  the  ques- 
tion "NUMBER"?  again.  After  the  user  has  entered  a valid  ship 
type  number,  the  program  moves  the  number  of  people  on  board  (POB) 
the  ship,  the  number  and  capacity  of  the  lifeboats  and  liferafts 
from  the  ship  characteristics  array  to  array  N5.  The  subroutine 
then  computes  the  length  of  the  lifeboat(s)  and  stores  the  length 
in  array  VI.  Finally,  the  subroutine  moves  the  probability  that 
a rescue  vessel  is  nearby  to  array  PI. 

Line  1102  begins  the  subroutine  that  requests,  from  the  user,  the 
rescue  boat  characteristics.  The  subroutine  first  sets  the  index 
15  to  zero  (variable  Z2)  and  erases  the  video  display.  The  FOR-NEXT 
loop  in  lines  1110  to  1114  asks  the  questions  and  receives  the 
answers.  The  actual  questions  are  stored  in  array  M5$  (a  string 
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array  denoted  by  the  terminal  $)  and  processed  in  the  subroutine 
that  begins  in  line  1620.  Both  subroutines  appear  on  page  4 of 

I Appendix  A.  The  subroutine  beginning  at  line  1620  displays  the 

question  in  array  M5$  and  put.,  the  user  reply  into  array  01.  The 
subroutine  then  compares  the  response  to  a minimum  value  for  the 
variable  (in  array  M6)  and  a maximum  value  (in  array  M4)  in  line 
1626.  If  the  variable  does  not  lie  in  this  range,  the  subroutine 
asks  the  question  again.  Finally  the  subroutine  increments  the 
index  for  array  01  and  returns  to  the  calling  subroutine  at  line 
1114.  The  rescue  boat  length  is  computed  and  stored  in  array  VI 
in  line  1118.  In'lines  1124  and  1126,  the  portions  of  probability 
Pg  which  remain  constant  for  all  the  simulations  for  the  run  are 
computed  and  stored  in  array  VI.  Finally  the  rescue  boat  capaci- 
ties (crew  and  passengers)  move  to  array  N5  and  the  mean  times  to 
pick  up  one  man  and  to  perform  a standard  maneuver  move  to  array 
T5.  The  text  for  the  questions,  the  minimum  allowed  value  and 
the  maximum  value  appear  in  the  data  statements  of  lines  1426 
through  1440,  page  A-3.  The  data  statement  in  line  1424  contains 
one  less  than  the  number  of  questions. 

The  subroutine,  beginning  in  line  1134  appearing  on  page  A-5,  to 
handle  the  casualty  type  and  the  number  of  simulations  starts  off 
like  the  other  two  discussed  above  by  erasing  the  video  display. 

The  subroutine,  lines  1138  through  1144,  then  displays  "TYPE  OF 
CASUALTY"  followed  by  the  menu  of  casualty  types.  As  for  the 
ship  type,  the  program  asks  the  user  to  choose  the  number,  line 
1146.  The  program  checks  the  number,  lines  1150  and  1151,  and 
repeats  the  question  if  the  number  falls  outside  the  allowed 
range.  Lines  1154  through  1170  handle  the  override  capability  for 
the  casualty.  Next  the  subroutine  picks  probabilities  P3  and  P5 
from  the  data  supplied  for  the  casualty  type  specified  and  puts  the 
probabilities  into  array  PI, lines  1172  and  1174.  If  the  casualty 
is  a collision,  the  subroutine  sets  probability  P]4  to  0.98,  lines 
1175  through  1177.  In  any  event  a value  for  the  index  N3  is  ob- 
tained from  the  casualty  data,  line  1178.  The  index  N3  has  a uni- 
que value  for  each  primary  casualty  type  (e.g.  for  a COLLISION  & 
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& FIRE  the  primary  casualty  type  is  COLLISION  and  the  secondary 
casualty  type  is  FIRE).  Finally  the  subroutine  asks  for  the  num- 
ber of  stimulations  (lines  1180  through  1184  inititalizes  the  coun- 
ters for  the  statistics,  and  returns  (lines  1186  through  1198). 

l-l  2.2  Simulation  Program 

j'i* 

The  simulation  program  consists  of  a FOR-NEXT  loop  which  calls 
three  subroutines.  The  FOR-NEXT  loop  begins  in  line  1028  on 
page  1 of  Appendix  A and  concludes  with  line  1040.  The  subrou- 
fl  tines  called  in  lines  1032  , 1036  , and  1039  together  perform  one 

simulation.  These  subroutines  appear  on  pages  A-6  through  A-12. 
i One  subroutine  handles  each  of  the  three  sections  into  which  the 


Abandon  Ship  Simulation  naturally  divides. 

2.2.1  Set  Up  Casualty  Conditions 

The  subroutine  beginning  at  line  1674  performs  the  first  section 
of  a simulation.  In  this  section  of  the  simulation  the  number 
of  people  killed,  knocked  (or  blown)  into  the  water,  and  isolated 
by  the  casualty  and  the  number  of  1 i f eboats/ 1 i feraf ts  damaged 
are  computed  for  the  particular  casualty  being  simulated.  The 
type  of  casualty  determines  the  mean  value  for  these  variables 
and  the  program  selects  a particular  value  from  the  appropriate 
statistical  distribution  using  a random  number  generator.  The 
random  deviates  are  computed  using  the  same  equations  described 
in  reference  (I).  The  casualties  were  divided  into  a 

primary  casualty  and  a secondary  casualty.  The  variables  for 
the  primary  and  secondary  casualty  are  combined  to  satisfy  the 
requirements  of  the  model.  For  the  primary  casualty  the  follow- 
ing line  numbers  apply  for  each  casualty  type.  For  a fire,  lines 
1680  through  1688;  for  a collision,  lines  1690  through  1712;  for 
an  explosion,  1714  through  1732;  for  a structural  failure,  1734 
through  1742;  for  a grounding  or  foundering,  1806  through  1816; 


il 


for  a capsizing,  1750  through  1762.  For  the  secondary  casualty,  j 

the  flooding  is  handled  in  lines  1766  through  1772  while  for  the  !; 

f \ 

fire  lines  1774  through  1786  apply.  No  attempt  will  be  made  to 
explain  this  coding  detail,  but  some  of  the  features  of  this  sec- 
ion  will  Dc  noted  and  a typical  portion  explained  in  detail. 

Since  many  of  the  variables  computed  at  the  beginning  of  the  sub- 
routine that  performs  the  first  section  of  the  simulation  use  a 
distribution,  the  distribution  computations  appear  in  a subroutine.  ■.  i 

All  the  distributions  appear  on  page  A-12.  Appendix  B contains 
an  annotated  listing  of  all  the  variables  us«d.  The  normal  dis- 
tribution begins  with  line  2218  (page  A-12).  The  inputs  to  the  I 

normal  distribution  subroutine  appear  in  array  R1 . The  normal 
deviate  (random  variable  selected  from  a normal  distribution)  | 

appears  in  variable  R6.  Most  of  the  normal  distributions  have 
only  the  mean  specified.  These  distributions  are  bounded  at  zero 
on  the  low  end.  If  the  lower  bound  (of  zero)  is  placed  at  the  2a 
point  of  the  distribution  then  a symetrical  distribution  requires 
an  upper  bound  at  twice  the  mean  and  a standard  deviation,  a, 
of  one-half  of  the  mean.  Since  this  condition  occurs  frequently, 
a subroutine  that  takes  the  mean  (supplied  in  array  element  Rl(l)) 
and  computes  the  bounds  and  standard  deviation  then  calls  the  nor- 
mal di stri buti on, appears  starting  at  line  2258. 

Now  consider  the  case  of  an  explosion  and  sinking.  The  primary 
casualty  is  an  explosion  which  appears  in  lines  1714  through 
1732.  Line  1716  sets  the  mean  for  the  special  normal  distribu- 
tion to  the  mean  number  of  people  blown  overboard  by  the  explo- 
sion and  goes  to  the  subroutine  to  compute  the  normal  deviate. 

Line  1718  rounds  the  normal  deviate  to  the  nearest  integer  and 
stores  the  value  in  the  array  element  N5  corresponding  to  the 
number  of  people  blown,  knocked,  or  who  jump  overboard.  See 


Appendix  B for  the  meaning  of  all  variables.  In  a similar  manner 
lines  1720  and  1722  compute  the  number  of  boats  destroyed. 

Note  that  the  total  number  of  boats  (lifeboats  plus  rescue  boats) 
is  multiplied  by  the  fraction  of  boats  destroyed  by  the  explosion. 
This  fraction  is  saved  for  later  use  in  line  1724.  In  lines 
1726  through  1730  the  number  of  people  isolated  and  killed  are 
computed.  For  each  of  these  the  number  of  people  on  board  is 
multiplied  by  the  fraction  affected  for  each  case.  The  results 
get  put  in  array  N5.  For  an  explosion,  probability  Pg  determines 
whether  the  secondary  casualty  is  a fire  or  a sinking.  Probabili- 
ty five  (P5)  is  only  allowed  two  values,  namely  zero  and  one 
(0  or  1).  In  the  subroutine,  beginning  at  line  1134,  that  handles 
the  casualty  type,  Pg  was  put  into  Pl{5).  Line  1731,  then, 
causes  a branch  based  upon  P5.  If  P5  equals  one  (1),  control 
goes  to  line  1774;  otherwise  control  continues  at  line  1768. 

The  part  of  the  subroutine  beginning  at  line  1774  handles  those 
casualties  having  a fire  as  the  secondary  casual  .y.  This  section 
also  handles  the  casualty  which  consists  of  a fire  only.  Note 
that  in  this  section,  the  various  quantities  generated  add  to 
those  produced  by  the  primary  casualty,  if  any.  Whether  the 
secondary  casualty  is  a fire  or  a sinking,  line  1788  converts 
the  fraction  of  boats  destroyed  into  the  fraction  not  destroyed. 

Line  1790  computes  the  total  number  of  people  in  water  while  line 
1792  sets  the  number  of  people  in  the  rescue  boat  (exclusive  of 
the  rescue  boat  crew)  to  zero.  Lines  1794  through  1800  perform 
the  bookkeeping  functions  for  the  number  of  people  in  the  water. 

Xl(2)  contains  the  number  of  people  in  the  water  for  this  simula- 
tion. Line  1796  calls  to  the  middle  the  subroutine  that  begins 
at  line  1656  (see  page  A-9)  to  update  the  values  in  Yl(l,l),  Yl(l,2), 
and  Yl(l,3).  Yl(l,l)  contains  the  sum  of  the  number  of  people 
in  the  water  for  all  the  simulations  in  this  run.  Yl(l,2)  maintains 
the  minimum  number  of  people  in  the  water  while  Yl(l,3)  becomes 
the  maximum  number  of  people  in  the  water  for  any  simulation  of 
this  run.  Line  1800  jumps  to  line  1818  to  compute  the  season,  the 
wave  height,  the  water  temperature,  and  sea  state  and  visibility 
functions.  "Ihe  season,  lines  1818  through  1 824  , is  a random  num- 
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ber  between  zero  and  one  from  a uniform  distribution.  The  sub- 
routine beginning  in  line  2285  selects  a random  deviate  from  a 
uniform  distribution  having  a minimum  value  supplied  by  Rl(2) 
and  a maximum  value  given  in  Rl(3).  The  random  deviate  selected 
from  a uniform  distribution  appears  in  V9 . The  wave  height,  lines 
1826  through  1832,  is  a random  deviate  selected  from  a Rayleigh 
distribution.  The  mode  supplied  in  R1(0)  is  linearly  interpolated 
between  the  mid-summer  value  (season=0)  and  the  mid-winter  value 
(season=l).  The  subroutine  that  begins  with  line  2294  puts  a 
random  deviate  selected  from  a Rayleigh  distribution  into  R9 . 

The  water  temperature,  lines  1834  through  1846,  is  a random  de- 
viate selected  from  a normal  distribution.  The  mean  water  tem- 
perature is  linearly  interpolated  between  a mid-summer  and  mid- 
winter value  according  to  the  season.  The  water  temperature  has 
a minimum  value  of  28  degrees,  a maximum  of  100  degrees  and  a 
standard  deviation  of  10  degrees.  Line  1832  places  the  wave 
height  in  Vl(2)  for  future  use  while  line  1846  puts  the  water  tem- 
perature in  Vl(l).  Lines  1848  and  1850  compute  the  sea  state  func- 
tion while  lines  1852  through  1856  compute  the  visibility  function 
multiplied  by  the  sea  state  function.  Line  1858  returns  to  the 
main  program. 

2.2.2  Get  Boats  Into  Water 

The  subroutine  beginning  in  line  1860  performs  the  second  section 
of  the  simulation.  In  this  section  the  boats  and  liferafts  are 
launched.  For  davit  launched  boats  (or  rafts)  consideration  is 
given  to  whether  the  launch  occurs  from  the  high  side  or  the  low 
side.  Lines  1862  and  1864  (see  page  A-8)  set  the  number  of 
rescue  boats  destroyed  and  the  number  launched  to  zero.  Lines 
1866  througir  1888  contain  a FOR-NEXT  loop  that  determines  whether 
a rescue  boat  was  destroyed  and  if  not  whether  or  not  the  launch 
succeeds.  The  loop  keeps  track  of  the  number  launched  and  the 
number  destroyed.  Line  1890  tests  to  see  whether  any  rescue 
boat(s)  1 aunch (es ) succeeded . Line  1892  computes  the  number 
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of  people  who  must  abandon  ship  in  lifeboats  and  liferafts.  Line 
1894  computes  the  capacity  of  the  rescue  boat(s).  Line  1896 
adjusts  the  MTTP  to  reflect  the  number  of  rescue  boats  successfully 
launched.  Line  1898  adjusts  the  inititial  accumulated  pick-up 
time  to  handle  multiple  rescue  boats;  note  that  if  only  one  rescue 
boat  will  perform  the  pick-ups  the  initial  accumulated  time  equals 
zero.  Lines  1900  and  1902  compute  how  many  lifeboats  and  life- 
rafts have  survived  the  casualty;  while  lines  1904  through  1920 
determine  how  many  get  successfully  launched.  Line  1924  tests 
to  see  whether  or  not  all  the  people  can  get  into  the  lifeboats 
and  liferafts.  If  so,  lines  1926  through  1932  set  the  values 
of  the  excess  capacity  of  the  lifeboats  and  liferafts,  the  number 
of  people  in  the  rescue  boat  (excluding  the  crew),  and  jumps  to 
line  number  1940.  If  not  all  the  people  can  get  into  the  life- 
boats and  liferafts,  the  subroutine  goes  to  line  1934  where  the 
lifeboats  and  the  liferafts  are  filled  and  the  remainder  attempt 
to  abandon  ship  in  the  rescue  boat(s).  These  computations  appear 
in  lines  1934  through  1942.  If  the  number  of  people  to  abandon 
ship  exceeds  the  total  capacity  of  all  the  boats  in  the  water, 
the  subroutine  goes  to  line  1958.  Otherwise  the.'  subroutine  contin- 
ues to  compute,  in  lines  1944  through  1954,  the  time  for  the  Casua- 
lty to  develop,  Tq,  and  the  sum  of  the  time  to  launch  the  rescue 
boat,  T|_,  and  the  time  for  the  rescue  boat  crew  to  report  to  the 
rescue  boat,  T^pj.  The  next  line,  1956,  returns  to  the  main  pro- 
gram. Lines  1958  through  1974  handle  various  situations  which  re- 
sult in  the  rescue  boat  failing  its  primary  mission.  Appendix  A 
page  9 lists  various  subroutines  used  in  this  section  which  are 

called  f rom  page  A-8.  In  lines  1976  through  1992  the  subroutine  to 

compute  the  probability  of  a launch  from  the  high  side  of  a factor 

dependent  upon  the  sea  state  (wave  height).  The  computations 

use  the  short  subroutine  in  lines  1994  through  2002  which 

limits  the  probability  to  the  range  between  and  including 
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zero  and  one.  Lines  2004  through  2014  compute  the  probability 
of  a successful  launch  from  the  low  side  of  the  ship.  Since  the 
probability  consists  of  a heel  angle  factor  and  the  same  sea 
state  factor  as  for  the  high  side  launch  probability,  the  sub- 
routine requires  less  effort  than  the  high  side  routine.  The 
low  side  subroutine  uses  the  subroutine  beginning  at  line  1994 
to  limit  the  heel  angle  factor  to  the  allowed  range.  The  sub- 
routine to  compute  the  probability  of  a successful  launch  of  a 
liferaft,  which  begins  in  line  2J16,  requires  only  three  lines 
since  there  is  no  heel  angle  factor  and  the  sea  state  factor  has 
already  been  determined.  The  probability  of  a successful  launch 

of  the  rescue  boat  depends  upon  the  rescue  boat  characteristics, 
the  heel  angle  of  the  ship,  the  sea  state,  and  whether  the  boat 
is  on  the  high  or  low  side  of  the  ship.  The  subroutine  performing 
the  necessary  calculations  appear  in  lines  2022  through  2042 
on  page  A-9. 

2.2.3  Rescue  Men  in  Water 

The  program  listing  for  the  third  major  section  of  the  Abandon 
Ship  Simulation  appears  on  page  10  and  11,  of  Appendix  A. 

Page  A-10  contains  the  main  flow  of  this  section  while  pages 
A-11  and  A-12  lists  the  subroutines  called  from  page  A-10.  In 
line  2048  on  page  A-10  a backwards  FOR-NEXT  loop  is  set  up  to 
pick  up  the  people  who  have  gotten  into  the  water  either  from 
the  primary  casualty  or  who  had  to  jump  into  the  water  because 
they  were  isolated  from  the  lifeboats,  rescue  boat(s),  and/or 
liferafts.  The  loop  counts  backwards,  starting  with  the  number 
of  people  in  the  water  and  counting  down  to  one  (1),  to  facili- 
tate other  computations  within  the  loop.  Lines  2050  and  2052 
i nc remen t the  total  time  to  pick  up  and  compute  the  survival  time 
due  to  hyperthermia  respectively.  Lines  2054  and  2056  stops  the 
simulation  if  the  number  of  people  remaining  in  the  water  equals 
zero;  this  can  only  occur  if  nobody  was  in  the  water  to  begin  with. 
Line  2058  computes  the  probability  that  the  man  being  picked  up  was 


knocked  (or  blown)  into  the  water  at  the  beginning  of  the  primary 
casualty.  Using  the  random  number  generator  and  the  probability 
that  the  man  was  knocked  into  the  water,  the  program  decided, 
in  line  2062,  whether  the  man  was  knocked  into  the  water  or  was 
isolated  and  jumped  into  the  water.  These  two  different  ways 
of  arriving  in  the  water  affect  the  length  of  time  the  man  is  in 
the  water  when  the  rescue  boat  arrives  to  rescue  him  and  the 
probability  that  the  man  had  a PFD  when  he  went  into  the  water. 
Lines  2064  through  2072  apply  to  the  cases  when  the  man  was 
knocked  into  the  water.  Line  2066  selects  the  probability  the 
man  was  wearing  a PFD  while  line  2068  computes  the  time  the  man 
was  in  the  water.  Line  2070  decrements  the  number  of  men  who 
were  knocked  into  the  water  by  one  (1).  Line  2072  jumps  to 
line  2082  to  complete  the  pick  up  processing.  Lines  2074 
through  2080  apply  to  the  cases  in  which  the  man  was  isolated 
and  had  to  jump  into  the  water.  Line  2076  selects  the  probabili- 
ty that  the  man  was  wearing  a PFD  while  line  2078  computes  the 
time  the  man  was  in  the  water.  Note  that  both  the  probability 

(compare  lines  2066  and  2076)  and  the  time  in  the  water  (note 
lines  2068  and  2078)  receive  different  values  for  the  two  cases. 
Line  2080  decrements  the  number  of  people  who  were  isolated  by 
one  (1);  this  number  really  need  not  be  decremented,  but  is  done 
for  completeness.  From  line  2082  through  2092  the  subroutine 
completes  the  computation  of  the  survival  time  and  compares  the 
survival  time  to  the  time  in  the  water.  Line  2084  calls  the 
subroutine  that  begins  on  line  2270.  The  subroutine  that  begins 
with  line  2270  appears  on  page  A-12.  This  subroutine  determines 
whether  or  not  the  man  was  wearing  a PFD  using  the  probability 
selected  in  either  line  2066  or  2076  then  computes  the  survival 
time  due  to  floatation.  Lines  2086  and  2090  complete  the  compu- 
tation of  the  survival  time  for  the  man  which  is  the  lessor  of 
the  survival  time  due  to  floatation  and  the  survival  time  due  to 
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hyperthermia.  Line  2092  compares  the  survival  time  with  the 
time  in  the  water;  if  the  survival  time  is  greater  than  the  time 
the  man  was  in  the  water  the  control  jumps  to  line  2096  where 
the  saved  statistics  get  accumulated.  Otherwise  the  man  is  lost 
and  control  jumps  to  line  2102  via  line  2094.  The  lines  from 
2096  through  2100  both  increment  the  number  of  saved  (line 
2098  which  calls  the  subroutine  beginning  in  line  2210)  and 
the  number  of  survivors  in  the  rescue  boat  (line  2100).  Lines 
2102  through  2150  complete  the  FOR-NEXT  loop.  Line  2102  tests 
to  see  whether  or  not  the  rescue  boat  is  full.  If  not,  the  con- 
trol jumps  to  the  end  of  the  loop  in  line  2150.  Otherwise,  the 
rout i ne  attempts  to  transfer  all  or  part  of  the  men  in  the  rescue 
boat  to  a lifeboat  or  liferaft.  Lines  2104  through  2118  establish 
the  time  required  to  transfer  one  man  from  the  rescue  boat  to 
a lifeboat  or  liferaft;  the  time  has  a normal  distribution  about 
the  mean  value  supplied  as  one  of  the  rescue  boat  characteristics. 
Line  2120  determines  whether  or  not  a rescue  vessel  is  nearby 
by  using  the  random  number  generator  and  the  probability  that  a 
rescue  vessel  is  nearby.  If  a rescue  vessel  is  nearby,  control 
goes  to  line  2142  where  the  people  rescued  by  the  rescue  boat 
are  transferred.  Otherwise,  control  proceeds  to  line  2122  where 
the  number  of  people  in  the  rescue  boat  gets  compared  with  the 
remaining  capacity  available  in  the  lifeboats  and  liferafts.  If 
there  remains  sufficient  capacity  for  all  the  survivors  in  the 
rescue  boat,  control  shifts  to  line  2142.  Note  that  this  is  the 
same  place  where  control  went  if  a rescue  vessel  was  nearby. 

The  routine  in  lines  2142  through  2148  simply  reduces  the  num- 
ber of  people  in  the  rescue  boat  to  zero,  increases  the  pick  up 
time  by  the  time  to  transfer  one  man  times  the  number  of  men 
transferred,  and  reduces  the  available  capacity  in  the  lifeboats 
and  liferafts  by  the  number  of  people  transferred.  If  the  avail- 
able capacity  of  the  lifeboats  and  liferafts  is  less  than  the 
number  of  people  in  the  rescue  boat,  control  proceeds  to  line 
2124.  Lines  2124  through  2130  decrease  the  number  of  people 
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in  the  rescue  boat  by  the  available  capacity  of  the  lifeboats 
and  liferafts,  sets  the  available  capacity  to  zero,  and  increments 
the  time  to  pick  up  by  the  time  to  transfer  one  man  times  the 
number  transferred.  Line  2132  tests  to  see  if  the  number  of 
people  in  the  rescue  boat  is  less  than  the  rescue  boat  capacity. 

If  so,  control  jumps  to  line  2150  which  ends  the  FOR-NEXT  loop. 
Otherwise,  control  proceeds  to  line  2134  where  the  tally  of 
total  number  of  people  not  rescued  by  the  rescue  boat  is  increased 
by  the  number  of  people  remaining  in  the  water.  This  is  accom- 
plished by  lines  2136  and  2138.  Note  that  line  2138  calls 
the  subroutine  that  begins  at  line  1656.  This  subroutine,  which 
appears  on  page  A-9,  updates  the cumu  1 a t i ve  ta 1 1 i es  for  any 
specified  variable.  In  line  2140  control  jumps  to  line  2152; 
note  that  this  constitutes  an  abnormal  exit  from  the  FOR-NEXT 
loop.  Since  all  the  boats  have  been  filled  to  capacity,  the 
simulation  terminates  after  performing  the  necessary  bookkeeping 
to  update  the  vari  ous  cumul ati ve  tal 1 i es . Lines  2142  through 
2148  were  discussed  above  while  line  2150  completes  the  FOR- 
NEXT  loop.  Lines  2152  through  2162  compute  the  ratio  of  num- 
ber saved  during  the  simulation  to  the  number  in  the  water,  up- 
dates the  c umu 1 a t i ve  ta 1 1 i es  for  the  ratio  and  total  number  saved 
and  returns  control  to  the  main  program.  Lines  2174  through 
2208  do  the  actual  computations  required  to  update  the  cumulative 
tallies  for  the  saved  ratio  per  simulation  and  the  total  number 
saved.  Lines  2210  through  2216  constitute  the  trivial  subroutine 
used  to  keep  track  of  the  number  saved  during  each  simulation. 

2.3  Output  Program 

The  output  program  has  two  parts.  The  first  part  prints  out  the 
input  parameters  established  by  the  user  before  the  simulations 
begin.  The  second  part  prints  a report  summarizing  the  results 
of  the  simulations  for  the  run.  The  subroutine  that  performs 
the  first  part  begins  with  line  1200  and  appears  on  page  13  of 
Appendix  A.  The  subroutine  consists  mostly  of  PRINT  statements. 
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All  the  verbage  that  appears  on  the  printed  report  appears  in  the 
PRINT  statements  except  the  heading  for  the  report  and  the  string 
"MEAN  TIME  TO".  The  statement  that  PRINTS  the  heading  appears 
in  line  1206;  the  string  variable,  Al$,  receives  the  string 
"ABANDON  SHIP  SIMULATION"  at  the  very  beginning  of  the  program 
(see  page  A-1  line  1004).  Line  1220  sets  up  the  string  M7$  to 
"MEAN  TIME  TO".  The  statement  in  line  1202  causes  the  PRINT 
statements  to  output  to  the  printer  rather  than  the  video  display. 
Most  of  the  print  statements  contain  a reference  to  the  TAB  func- 
tion. This  function  simply  inserts  the  number  of  spaces  specified 
by  the  argument.  Line  1252  tests  the  casualty  type  and  skips  the 
line  that  prints  the  length  of  colision  damage  if  the  casualty 
does  not  involve  a collision.  Line  1256  skips  the  PRINT  statement 
that  prints  the  heel  angle  for  casualties  that  do  not  involve 
a sinking.  The  statement  in  line  1262  causes  subsequent  PRINT 
statements  to  output  to  the  video  display. 

The  subroutine  beginning  with  line  1266,  appearing  on  page  A-14, 
prints  the  summary  re^port  of  the  results  of  the  simulations.  Line 
1268  selects  the  printer  for  statement  output.  Because 
the  FOR-NEXT  loop  that  counts  the  number  of  simulations  starts 
at  zero,  the  variable,  Xl(l),  which  stops  the  run  has  a value 
of  one  less  the  number  of  simulations.  Line  1269  sets  N equal 
to  the  number  of  simulations.  Lines  1271  through  1276  compute 
and  print  the  overall  fraction  of  men  in  the  water  rescued  by 
the  rescue  boat.  If  the  total  number  of  people  in  the  water 
for  all  the  simulations  in  the  run  equals  zero  (0),  line  1271 
sets  V equal  to  minus  one  (-1)  and  transfers  control  to  line 
1274.  Otherwise  control  proceeds  to  line  1273  where  the  overall 
fraction  of  men  in  the  water  rescued  by  the  rescue  boat  gets 
computed.  Note  that  the  array  element  Yl(l,l)  contains  the 
total  number  of  people  in  the  water  for  all  the  simulations  in 
the  run  while  array  element  Yl(2,l)  contains  the  total  number 
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of  people  rescued  by  the  rescue  boat  for  all  the  simulations. 

Line  1273  rounds  the  variable  V to  three  decimal  places;  this  will 
force  the  un-formatted  print  statement  to  output  the  fraction 
with  no  more  than  three  decimal  places.  Lines  1274  and  1276  sets 
up  four  variables  to  provide  four  "tab  stops"  for  the  subsequent 
print  statements  and  print  the  output  line  "OVERALL  FRACTION  OF 
****★*********★★******"_  Line  1277  prints  the  text  "MEN  IN 
WATER  RESCUED".  Line  1280  tests  the  variable  V.  If  V is  less 
than  zero,  which  can  only  occur  if  the  total  number  of  people  in 
the  water  equals  zero  (see  lines  1272),  line  1281  prints  three 
dashes  ( — ) and  goes  to  line  1283.  Otherwise,  line  1282  prints 
the  variable  V.  Lines  1283  and  1284  print  the  line  "BY  RESCUE 
BOAT  *♦*★*****".  Lines  1285  through  1287  print  the  headings 
on  the  columns  to  follow  and  sets  the  temporary  variable  M 
equal  to  N,  the  number  of  simulations.  Lines  1288  through 
1306  print  the  first  three  lines  following  the  column  headings. 

Line  1288  begins  a FOR-NEXT  loop  to  print  the  three  lines.  Line 
1292  reads  a data  statement;  the  first  time  around  the  loop  the 
data  statement  in  line  1434  appearing  on  page  A-15  gets  read. 
Subsequent  times  around  the  loop  will  read  the  data  statements 
in  lines  1486  and  1488.  Variable  M equals  the  number  of  simula- 
tions the  first  time  around  the  loop  and  the  number  of  times 
the  rescue  boat  got  deployed  the  second  and  third  times  around  the 
loop.  The  value  of  M gets  printed  in  the  column  headed  "NO. TIMES". 
Next  the  entries  in  the  columns  headed  "MEAN",  "MIN.",  and  "MAX." 
require  printing  to  complete  the  line.  The  mean  requires  divid- 
ing by  the  number  printed  in  the  column  "NO.  TIMES";  this  number 
can  be  zero.  Therefore,  line  1294  tests  the  value  of  M and  skips  the 
computation  if  the  mean  for  M equals  zero.  Lines  1296  and  1297  set 
the  total  number  for  the  mean  to  zero  if  the  total  turned  up  nega- 
tive. Line  1298  computes  the  mean,  and  puts  it  in  temporary  varia- 
ble Q1 . Line  1300  puts  the  minimum  into  variable  Q2  while  line 
1302  sets  Q3  to  the  maximum.  Line  1304  sets  the  temporary  varia- 
ble M equal  to  W.  The  variable  W accumulates  the  total  number  of 


times  the  rescue  boat  got  deployed  during  all  the  simulations  in 
the  run(see  line  2046  page  A-10).  Line  1306  completes  the  FOR- 
NEXT  loop  that  began  with  line  1288.  Lines  1310  through  1330 
constitute  another  FOR-NEXT  loop.  This  loop  would  be  almost 
identical  to  the  loop  discussed  above  if  all  the  remaining  lines 
required  only  one  line  of  text  and  had  all  the  columns  printed. 

The  first  two  lines  printed  by  this  loop  require  printed  entries 
only  in  the  column  headed  "NO.  TIMES".  Line  1311  sets  variables 

Q4,  Q5,  Q6,  and  Q7  to  zero.  Line  1312  prints  one  (1)  space, reads 

the  first  line  of  text,  and,  for  the  first  two  lines  only,  jumps 
to  line  1319.  Line  1313  prints  the  first  line  of  text,  reads  the 

second  line  of  text,  and  either  prints  the  second  line  of  text 

or  jumps  to  line  1319.  Line  1313  jumps  to  line  1319  for  the  third 
time  around  the  loop.  For  the  fourth,  and  last  time  around  the 
loop  control  can  arrive  at  line  1314  which  reads  the  third  line  of 
text.  In  any  event  control  reaches  line  1319,  for  each  time  around 
the  loop,  where  variable  Q4  gets  set  to  Y1(I,1),  the"NLIMBER  OF  TIMES". 
For  the  first  two  times  around  the  loop  lines  1320  and  1321  print  the 
last  line  of  text,  the  "NUMBER  OF  TIMES",  and  zero  for  the  other 
variables,  then  skip  to  the  end  of  the  loop.  For  the  third  and 
fourth  times  around  the  loop  control  goes  to  line  1322  which  tests 
the  "NUMBER  OF  TIMES".  If  greater  than  zero,  control  goes  to  line 
1324  to  compute  the  mean  (variable  Q5).  Otherwise  control  goes  to 
line  1323  to  set  Q5  to  zero  and  jump  to  line  1326.  Lines  1326 
and  1328  set  variables  Q6  and  Q7  to  the  minimum  and  maximum  respec- 
tively. Line  1329  prints  the  last  line  of  text  and  the  variables 
Q4,  Q5,  Q6,  and  Q7.  Note  that  the  print  statements  are  executed 
by  calls  to  subroutines.  These  subroutines  appear  on  page  A-15. 

Line  1330  completes  the  FOR-NEXT  loop  and  line  1332  completes  the 
subroutine.  Note  that  the  SELECT  statement  in  line  1332  causes 
subsequent  print  s ta tements  to  output  to  the  video  display. 
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3. 


MAN  OVERBOARD  SIMULATION 


The  Man  Overboard  Simulation  also  consists  of  three  programs  all 
of  which  are  written  in  BASIC.  The  first  program  interacts  with 
the  user  to  obtain  the  information  required  to  make  one  or  more 
simulation  runs.  This  first  program,  the  Man  Overboard  Operator 
Program,  provides  an  interactive  input  scenario  to  the  operator 
asking  for  each  piece  of  information  required  to  complete  the  data 
set  needed  to  perform  a simulation  run.  The  Operator  Program  prints 
a summary  of  the  information  required  by  the  second  program.  The 
second  program,  the  Man  Overboard  Simulation  Program,  gets  its  in- 
put from  the  disk  file  written  by  the  first  program,  performs  the 
simulation(s)  specified,  produces  the  reports  requested  by  the 
user,  and  writes  a disk  file  containing  the  input  information  and 
the  results  of  the  simulation(s)  performed.  The  user  may  request 
five  different  kinds  of  print-outs  from  the  Simulation  Program. 

Three  of  these  print-outs  served  as  aids  in  program  development, 
debugging,  and  check-out  and  consequently  would  not  be  required 
by  the  general  user.  The  other  two  kinds  of  print-outs  contain 
the  results  of  one  or  more  simulation  runs.  One  print-out  pro- 
duces five  lines  of  print  for  each  simulation  containing  the  re- 
sults of  the  simulation.  This  kind  of  print-out  goes  by  the  name 
"COMPRESSED  PRINT".  The  remaining  kind  of  print-out,  called  "REGU- 
LAR PRINT",  produces  a one  page  report  for  each  simulation  run. 

The  report  shows  the  variable  input  data  and  the  results  of  the 
simulation.  The  third  program,  the  Output  Program,  reads  the  disk 
file  created  by  the  second  program  and  produces  a report  identical 
to  the  "REGULAR  PRINT"  report  produced  by  the  second  program.  The 
third  program  is  used  to  obtain  regular  (one  page  per  simulation) 
print  from  one  or  more  simulation  runs  performed  with  only  the 
compressed  print  requested.  Normal  usage  would  request  either 
regular  or  compressed  print  but  not  both. 
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3.1  Man  Overboard  Operator  Program 


The  Man  Overboard  Operator  Program  consists  of  a main  program, 
five  subroutines  and  a number  of  DATA  statements.  The  main  program 
divides  into  four  parts;  Initialization,  Ship  Characteristics, 

Rescue  Boat  Characteristics,  and  Conclusion.  A listing  of  the 
program  appears  in  Appendix  C. 

3.1.1  Initialization 

A listing  of  the  main  program  appears  in  Appendix  C one  pages  1 and 
2.  Appendix  D contains  an  annotated  list  of  the  variables  and 
arrays  used  in  the  program.  The  main  program,  in  line  10,  first 
calls  the  subroutine  at  line  9200  to  home  and  erase  the  video  dis- 
play. In  lines  22  through  28  the  main  program  DIMensions  the  arrays  re- 
quired by  the  remainder  of  the  program.  Lines  30  through  34  request 
the  beginning  and  ending  serial  numbers  from  the  user.  Lines  40 
and  42  initializes  a disk  file  to  receive  the  i nf ormat i on  entered 
by  the  operator  while  lines  68  begins  a FOR-NEXT  loop  to  handle 
the  number  of  simulation  runs  implied  by  the  beginning  and  ending 
serial  numbers  entered  by  the  user  in  lines  30  through  34.  Lines 
70  through  76  print  "INITIALIZING"  on  the  video  display  and  call 
subroutines  at  9000  and  9100  to  initialize  the  constants  and  arrays. 

When  the  initialization  completes,  line  78  calls  subroutine  9200 
to  home  and  erase  the  video  display  removing  the  message  "INITIALI- 
ZING" placed  on  the  screen  at  line  72. 

Subroutine  9000,  which  appears  on  page  C-3,  assigns  values  to  a 
number  of  variables  that  do  not  change  during  the  Operator  Program. 

Many  of  these  variables  no  longer  have  any  use  in  the  Operator  Pro- 
gram. During  program  development  the  Man  Overboard  Simulation 
consisted  of  one  large  program.  All  these  assignments  were  required 
before  the  Operator  Program  was  separated  from  the  Man  Overboard 
Simulation  Program. 
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Page  C-3  has  a listing  of  subroutine  9100  which  assigns  values  to 
the  elements  of  array  variables.  The  values  for  these  variables 
appear  in  the  DATA  statements  in  line  numbers  9800  through  9994 
on  page  C-4.  Lines  9100  through  9120  assign  values  to 

the  elements  of  the  string  array  Ml$  and  the  numerical  arrays  M6 
and  M7.  The  values  for  these  variables  appear  in  the  DATA  state- 
ments in  lines  9800  through  9885.  Note  that  each  line,  containing 
one  DATA  statement,  consists  of  a string  for  array  Ml$  and  a 
value  for  each  of  the  arrays  M6  and  M7.  Lines  9125  and  9150  assign 
values  to  the  string  array  Tl$  and  the  numerical  array  T1 . Note 
that  the  array  T1  has  two  subscripts.  The  first  subscript  speci- 
fies the  ship  number  while  the  second  subscript  specifies  the  char- 
acteristic number.  The  strings  for  array  Tl$  and  the  numerical 
values  for  array  Tl  appear  ■■■  n the  DATA  statements  in  lines  9900 
through  9980.  Note  that  each  line  contains  the  string  for  one 
element  in  array  Tl$  and  all  the  characteristics  that  pertain  to 
that  ship  type.  Finally  the  code  in  lines  9160  through  9180  reads 
the  numerical  variables  in  the  DATA  statements  of  lines  9990  through 
9994  into  array  P2.  The  statement  in  line  9199  returns  control  to 
the  main  program. 

The  subroutine  beginning  in  line  9200  simply  homes  and  erases  the 
video  display  then  returns  control  to  the  calling  program. 

3.1.2  Ship  Characteristics 

Lines  80  through  250  perform  the  second  function  of  the  Operator 
Program  by  setting  the  ship  characteristics.  Lines  80  through  110 
put  the  messages"SHIP  CHARACTERISTICS"  and  "TYPE  OF  SHIP?"  followed 
by  a menu  of  ship  types  on  the  video  display.  Line  120  displays 
the  message  "NUMBER  OF  SHIP  DESIRED"  and  receives  the  reply  while 
line  130  tests  the  response  to  insure  the  user  typed  a valid  number. 
With  a valid  response,  the  program  proceeds  to  line  140  to  clear 
the  screen  in  preparation  for  the  next  question.  The  subroutine  at 


9300  puts  the  question  "WANT  STANDARD  SHIP?"  on  the  screen.  Sub- 
routine 9300  appears  on  page  C-4.  The  variable  J1  determines  which 
question  will  display.  Variable  M3  obtained  its  value  when  sub- 
routine 9000  was  called  in  line  72.  Line  160  tests  the  response 
to  the  question  and  transfers  to  line  240  if  the  user  supplied 
an  a f f i rma tive  reply.  Lines  170  through  230  handle  the  cases  in 
which  the  user  elected  not  to  use  the  standard  ship  values.  Lines 
180  through  230  allow  the  user  to  change  the  ship  length,  speed, 
and  mean  heading  error.  The  program,  for  each  value,  presents  the 
standard  value  and  requests  the  desired  value.  The  user  can,  of 
coarse,  enter  the  standard  value  for  any  or  all  the  values  that 
the  program  allows  the  user  to  change.  Line  240  concludes  the 
section  on  ship  characteristics.  In  line  240,  which  the  program 
reaches  whether  or  not  the  user  selected  a standard  ship,  array 
element  P2(10)  receives  a value.  P2(10)  is  the  probability  the 
ship  will  recover  the  MOB  directly  which  depends  upon  ship  type. 

Subroutine  9300,  which  is  called  three  times  by  the  main  program, 
appears  on  page  C-4,  The  subroutine  displays  a question  on  the 
video  display,  receives  the  user  reply  to  the  question,  and  tests 
the  reply.  If  the  reply  lies  outside  the  allowable  range  of 
values  precribed  for  the  variable,  the  subroutine  starts  over. 

Line  9310  displays  the  Jlth  string  in  the  string  array  Ml$.  M6 
is  an  array  of  minimum  values  while  M7  contains  the  maximum  values 
allowec  for  each  variable  inputted  by  the  user.  During  the  initia- 
lization, subroutine  9100  sets  up  these  arrays  (see  lines  9100 
through  9120).  For  values  that  require  a "YES'  or  "NO"  response, 
the  minimum  and  maximum  have  the  same  value  (ZERO);  this  serves 
as  a flag  which  the  subroutine  tests  in  line  9315.  If  the  input 
variable  requires  a "YES"  or  "NO"  response, the  program  transfer  to 
line  9370.  Line  9320  receives  the  user  response  to  the  question. 
Note  that  the  INPUT  statement  in  line  9320  supplies  the  question 


mark  (?)  for  the  question.  In  lines  9325  and  9326  the  user  res- 
ponse sets  compared  to  the  minimum  and  maximum  allowed  for  the 
variable.  For  user  responses  outside  the  allowed  range,  the  con- 
trol returns  to  line  9310  to  repeat  the  question.  Otherwise  con- 
trol proceeds  to  line  9340  to  increment  the  index  to  the  array 
which  receives  the  user  replies.  The  index  to  the  question  (array 
Ml$),  minimum  (array  M6),  and  maximum  (array  M7)  arrays,  Jl, 
receives  its  values  from  the  calling  program  (see  lines  150,  180- 
230,  and  290-310).  In  line  9360  control  returns  to  the  calling 
program.  For  variables  that  require  a "YES"  or  "NO"  response, 
line  9315  transferred  control  to  line  9370  which  starts  a new  line 
and  prints  the  remainder  of  the  question  thereby  defining  the 
acceptable  answer.  Line  9375  receives  the  user  response.  Lines 
9380  and  9385  test  the  response.  For  an  incorrect  response,  control 
returns  to  line  9310  to  display  the  question  again.  Note  that  while 
the  program  requests  a "1"  for  a "YES"  response  and  a "0"  for  a "NO" 
response,  by  changing  lines  9370  through  9385,  any  other  response, 
e.g.  "Y"  or  "N",  will  become  the  acceptable  responses  for  all  "YES"- 
"NO"  questions  except  the  question  "WANT  TO  INPUT  NEXT  RUN?".  For 
"YES"-"N0"  questions  now  under  discussion,  line  9399  returns  control 
to  the  calling  program. 

3.1.3  Rescue  Boat  Characteristics 

The  third  section  of  the  main  program  receives  the  rescue  boat 
characteristics.  The  main  program  coding  appears  in  lines  250 
through  365.  Since  the  object  of  the  man  overboard  simulation 
involves  comparing  the  performance  of  different  rescue  boats,  all 
the  variables  relating  to  the  rescue  boat  appear  as  user  supplied 
variables.  This  allows  maximum  flexibility  precisely  where  the  user 
needs  it.  Line  250  resets  the  index  to  the  "reply  array"  to  unity 
while  lines  260  through  280  clear  the  video  display  and  display  the 
message  "RESCUE  BOAT  CHARACTERISTICS".  Lines  290  through  310  ask 
the  questions  and  receive  the  replies  for  each  of  the  rescue  boat 
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variables  up  through  the  first  question  that  requires  a "YES"-"N0" 
answer.  Note  that  subroutine  9300  does  most  of  the  work.  Lines 
320  through  335  process  the  reply  to  the  last  question  by  setting 
the  value  of  the  "reply  array",  01,  to  zero  for  a "NO"  response 
and  unity  for  a "YES"  reply.  Lines  340  through  355  handle  the 
last  rescue  boat  question  and  response.  A "NO"  response  to  this 
question,  "SEARCH  WITH  RESCUE  BOAT  ONLY",  allows  the  program  to 
use  a value  for  the  probability  the  ship  is  restricted  from  turning 
that  depends  upon  the  type  of  ship.  A "YES"  response  forces  the 
probability  to  unity.  Finally,  lines  360  and  365  set  up  the  pro- 
babilities P5,  P6,  and  P15  in  array  P2. 


3.1.4  Conclusion  of  the  Operator  Program 


This  section  discusses  the  end  of  the  Operator  Program.  Lines 
370  through  460  obtain  the  number  of  simulations  desired  and  compute 
those  variables  that  remai n constant  during  a simulation  run.  Lines 
370  through  378  ask  the  question  "NUMBER  OF  SIMULATIONS?"  and 
receive  the  reply.  Lines  380  through  460  compute  the  variables 
that  remain  constant  during  a simulation  run  (which  usually  con- 
sists of  many  simulations  having  the  same  input  data).  All  these 
variables  are  stored  in  array  T5.  The  annotated  list  of  variables 
in  Appendix  D describes  each  element  in  array  T5.  Lines  500  through 
660  write  the  input  data  on  the  disk.  Line  680  calls  subroutine 
8600  which  prints  the  data  the  user  has  specified  either  directly 
or  implicitly.  Subroutine  8600  also  prints  some  of  the  variables 
which  rema in  constant  throughout  a simulation  run.  The  details 
of  this  subroutine  appear  in  the  following  paragraph.  In  line  690 
the  program  tests  to  see  if  the  current  serial  number  is  the  last 
serial  number  requested  by  the  user  at  the  beginning  of  the  program 
(line  34).  If  the  current  serial  number  is  the  last,  control  jumps 
to  line  799.  Otherwise  the  program  proceeds  to  line  700.  Lines 
700  through  750  ask  the  user  whether  or  not  to  gather  the  informa- 
tion for  the  next  simulation  run  which  is  identified  by  serial 
number  (line  720).  If  the  user  elects  not  to  proceed,  the  program 


jumps  to  line  800.  Otherwise  control  continues  to  line  760  which 
RESTORES  the  pointer  to  the  DATA  statements.  Line  799  concludes 
the  FOR-NEXT  loop  that  began  in  line  68.  In  any  event  .eventual ly 
control  reaches  line  800  which  prints  the  message  "INPUT  PHASE 
COMPLETE"  on  the  video  display.  Line  820  closes  the  disk  file 
into  which  the  program  wrote  the  input  data  and  terminates  with 
the  STOP  statement. 

Subroutine  8600  bears  the  REMark  "DEBUG  PRINTOUTS".  This  comment 
remains  from  the  time  when  the  entire  Man  Overboard  Simulation  con- 
sisted of  one  large  program.  The  program  was  too  large,  however, 
to  run  in  the  memory  available  at  development  time.  At  that  time 
the  printout  discussed  in  this  paragraph  served  as  a debugging  aid 
to  verify  that  the  input  part  of  the  program  functioned  properly. 

Now,  however,  with  the  Operator  Program  separate  from  the  Simula- 
tion Program  the  printout  serves  the  necessary  function  of  identi- 
fying the  output  with  the  input.  Line  8602  selects  the  line  printer 
for  output.  Line  8610  prints  the  ship  type  while  lines  8615  through 
8635  print  the  ship  characteristics.  For  the  definition  of  the 
elements  in  the  T1  array  see  Appendix  D.  Note  that  in  the  Operator 
Program  the  T1  array  has  two  indexes.  In  the  other  Man  Overboard 
Programs,  the  T1  array  has  only  one  DIMension  (index).  In  the 

Operator  Program  the  ship  type  the  user  selects  determines 
the  first  index.  The  Operator  Program  stores,  on  disk,  the 
characteristics  for  the  ship  selected  by  the  user.  The  other 
Man  Overboard  Programs  do  not  need  the  characteristics  of  the  other 
ships  available  to  the  user  of  the  Operator  Program.  Note  that 
the  Operator  Program  prints  two  lines  containing  the  characteris- 
tics of  the  ship  selected  by  the  user  with  six  characteristics  on 
each  line.  Line  8622  tests  the  index  into  the  characteristics. 

Line  8624  starts  a new  line  for  characteristic  number  seven.  Line 
8640,  prints  the  heading  "RESCUE  BOAT"  preceeded  by  a blank  line. 

Lines  8645  through  8658  print  the  rescue  boat  characteristics  entered 
by  the  user  in  two  lines  with  six  characteristics  per  line.  Lines 
8562  and  8563  serve  to  start  the  second  line  with  the  seventh  charac- 
teristic just  as  lines  8624  and  8626  did  for  the  ship  characteristics. 
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In  a similar  manner  line  8660  prints  the  heading  "PROB."  preceed- 
ed  by  a blank  line  while  lines  8662  te. rough  8669  print  the  array 
of  probabilities  in  array  P2.  Note  the  probabilities  appear  on  three 
lines  since  there  are  fifteen  probabilities  in  the  array.  Lines 
8665  through  8667  cause  new  lines  to  begin  for  the  seventh  and 
thirteenth  probabilities.  Finally  lines  8670  through  8694  print 
the  computed  values  that  remain  constant  for  all  runs  in  a simula- 
tion run.  In  this  case  each  of  the  variables  printed  has  an  iden- 
tification on  the  line  above  it.  Line  8696  selects  the  video  dis- 
play for  future  "printed"  output.  Line  8799  returns  to  the  main 
program. 

3.2  Man  Overboard  Simulation  Program 


I 
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The  second  of  three  programs  that  make  up  the  complete  Man  Over- 
board Simulation  performs  the  simulation.  The  first  program,  the 
Man  Overboard  Input  Program,  writes  a disk  file  that  serves  as 
input  to  the  second  program.  The  second  program  performs  the  simu- 
lation(s)  requested  and  writes  a disk  file  that  serves  as  an  input 
to  the  third  program.  The  second  program,  under  user  control, 
can  produce  the  sar.e  report  as  produced  by  the  third  program.  A 
listing  of  the  second  program  appears  in  Appendix  E.  The  second 
program,  Man  Overboard  Simulation  Program,  consists  of  a main 
program,  and  a number  of  subroutines.  The  main  program  divides 
into  four  parts:  Input  Section,  Simulation  Program,  Output  Section, 
and  Subroutines.  The  Input  Section  extends  from  the  beginning  to 
line  285.  The  Simulation  Section  begins  with  300  and  extends  to  line  2570. 
The  Output  Section  appears  in  lines  5900  through  6099  and  the  Subrou- 
tines encompass  the  remainder  of  the  program. 

3.2.1  Input  Section 

The  Input  Section  which  appears  on  page  E-1  calls  subroutines  on 
pages  E-14  and  E-15  and  jumps  to  a line  that  appears  on  page  E-2. 

The  first  executable  line  of  the  program,  line  10,  calls  subroutine 
9200  on  page  E-15  to  home  and  erase  the  video  display.  Next,  in 
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lines  20  through  28,  the  program  prints  the  message  "INITIALIZING" 
and  DIMensions  the  arrays  used  by  the  remainder  of  the  program. 

The  subroutine  at  9000  gets  called  to  initialize  the  variables 
that  remain  constant  throughout  all  the  simulation  runs.  In  lines 
40  through  69,  the  program  interacts  with  the  user  to  determine 
which  print-outs  to  produce  during  the  simulation  runs  to  follow. 
Note  there  are  three  print-outs  to  aid  in  debugging  the  program. 

The  remaining  two  print-outs  occur  for  each  simulation  run  if 
requested  by  the  user.  The  regular  print-out  produces  a one  page 
report  for  each  simulation  run  while  the  compressed  print-out 
produces  five  lines  for  each  simulation  run.  Line  90  requests, 
from  the  user,  the  name  of  the  disk  file  containing  the  input  data 
for  the  set  of  simulation  runs  and  the  name  of  the  file  on  which 
to  write  the  output  data.  Lines  92  through  98  produce  the  heading 
for  the  compressed  print-out  if  the  user  elected  to  have  a com- 
oressed  orint-out.  Otherwise,  lines  92  through  98  have  no  effect. 
Lines  100  through  262  read  the  input  data  for  one  simulation  run 
from  the  disk  and  write  a copy  of  the  data  to  the  output  disk 
file.  Lines  118  and  250  and  152  through  156  work  together  to  open 
the  output  file  for  the  first  input  data  set  only.  Finally,  lines 
266  through  285  produce  debug  print-out  #3  if  requested  by  the  user; 
otherwise  these  lines  have  no  effect. 

The  above  discussion  skipped  lightly  over  the  statement  that  re- 
sults in  a jump  off  the  page.  After  a simulation  run,  see  line 
6099,  control  returns  to  line  140  to  read  the  next  data  set  from 
the  input  disk  file.  If  the  last  data  set  has  already  been  read, 
the  program  will,  then,  at  this  point,  read  an  end-of-file.  Line 
130  causes  control  to  go  to  line  400,  see  page  E-2,  for  an  end-of- 
file.  Lines  440  through  462,  on  page  E-2,  formerly  received  jumps 
from  page  E-1,  but  are  no  longer  used. 
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3.2.2  Simulation  Section 

The  Simulation  Section  includes  a large  fraction  of  the  total  Simu- 
lation Program.  The  Simulation  begins  at  line  300  on  page  E-2. 

Lines  300  through  360  set  the  elements  of  the  arrays  used  to 
accumulate  the  statistics  for  a simulation  to  the  correct  initial 
values.  Line  399  jumps  around  the  lines  that  handles  the  end-of- 
file  condition.  The  simulation  then  continues  at  line  470  to 
begin  the  loop  which  performs  the  requested  number  of  simulations. 

Line  480  contains  the  FOR  statement.  The  corresponding  NEXT  state- 
ment appears  in  line  5999  on  page  E-8.  Lines  490  through  499 
reset  the  flags  that  must  be  reset  for  each  simulation.  Lines  500 
through  784  compute  all  the  variables  that  remain  constant  through- 
out a given  simulation.  Most  of  these  variables  depend  upon  random 
numbers.  Lines  500  through  784  appear  on  pages  E-2  and  E-3.  Lines 
500  through  625  compute  the  constant  term  of  the  navigational  head- 
ing error.  Note  that  this  constant  term  has  a normal  distribu- 
tion. Line  610  calls  subroutine  8000  to  obtain  the  normal  variant. 
Subroutine  8000  appears  on  page  E-13  and  is  discussed  below  on 
pages  40  and  45.  Next  lines  630  through  650  set  the  season 

or  time  of  year  for  the  simulation.  Since  the  season  has  a uni- 
form distribution  with  a range  from  zero  to  unity  which  exactly 
matches  the  distribution  and  range  of  the  random  number  generator, 
the  code  does  not  require  the  uniform  distribution  subroutine. 

Lines  660  through  668  compute  the  environmental  visibility  using 
the  Rayleigh  distribution  subroutine  at  line  8200  which  appears  on 
page  E-12.  Pages  45  & 46  below  contain  a discussion  of  subroutine 
8200.  Lines  670  through  676  use  subroutine  9500  to  compute  the 
distance  of  visibility  from  the  ship  and  the  rescue  boat;  the  sub- 
routine discussed  on  pages  48  and  49  below  appears  on  page  E-15. 

Lines  680  through  698  compute  the  water  temperature  using  sub- 
routine 8000  to  obtain  a normal  variant.  Line  690  linearly  inter- 
polates, by  season  (or  time  of  year),  between  a mid-summer  mean, 

Tl(9),  and  a mid-winter  mean,  Tl(lO),  to  obtain  the  mean  temperature. 
Line  700  through  730  use  the  subroutine  at  8400,  appearing  on  page  E-14 
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and  discussed  below  on  page  (46),  to  compute  the  survival  time 
due  to  hypothermia.  Next  the  program  computes  the  significant 
height  of  the  waves  in  lines  740  through  754,  page  E-3.  The 
significant  height  of  the  waves  has  a Rayleigh  distribution  with 
the  mode  determined  by  the  formula  in  line  750.  The  formula  line- 
arly interpolates  between  a mid-summer  mode  of  significant  wave 
height  and  mid-winter  val  ue  accordi ng  to  the  season.  The  probabi- 
lity of  a successful!  recovery  of  the  rescue  boat  depends  upon 
the  number  of  falls  (1  or  2)  and  the  significant  height  of  the 
waves.  Lines  760  through  766  compute  the  probability  of  success- 
ful recovery  of  the  rescue  boat  using  the  formula  in  line  766.  The 
Constants  P3,  P4,  P5,  and  P6  receive  values  in  subroutine  9000  as 
discussed  above  on  page  (25)  and  below  on  page  (47)  and  appearing 
on  page  E-14  and  E-15.  Lines  770  through  784  compute  the  last  of 
the  variables  that  remain  constant  throughout  a simulation.  Lines 
776  through  782  compute  the  rescue  boat  speed  and  restrict  the 
minimum  value  to  three  (3)  knots.  The  boat  speed  depends  upon 
the  specified  boat  speed  in  calm  water,  the  boat  speed  in  eight 
foot  (8')  waves,  and  the  significant  height  of  the  waves.  Line 
784  computes  the  ratio  of  the  ship  speed  divided  by  the  boat  speed. 
Next,  if  the  user  requested  debug  print  #1,  the  program  prints 
the  variables  that  rema in  constant  through  a given  simulation  run. 

This  print-out  resides  in  subroutine  8700,  discussed  on  pages  46  and  47 
below  listed  on  page  E-14,  gets  called  in  line  790. 

Most  of  the  rema inder  of  the  simulation  consists  of  five  parallel 
paths  of  which,  for  any  given  simulation,  only  one  will  be  followed. 

The  five  paths  consist  of  two  paths  when  the  Man  Overboard  (MOB) 
was  seen  going  overboard  and  three  paths  when  the  MOB  was  not  seen 
going  overboard.  For  the  case  in  which  the  MOB  was  seen  going 
overboard  one  path  handles  the  situation  in  which  the  captain 
elects  to  turn  and  perform  the  search.  The  other  "seen"  path, 
which  applies  when  the  ship  is  restricted  from  turning  and  uses  the 
rescue  boat  for  the  search.  The  paths  relating  to  cases  in  which 
the  MOB  was  not  seen  going  overboard  handle  search  with  ship,  search 
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with  rescue  boat,  and  search  with  both  rescue  boat  and  ship. 

Which  path  the  program  will  follow  depends  upon  random  variables 
and  user  supplied  parameters.  In  general,  in  a simulation  run, 
each  of  the  five  paths  will  be  traversed  during  at  least  one  simu- 
lation. With  one  exception  lines  840  through  1520  handle  the  paths 
for  which  the  MOB  was  not  seen  going  overboard.  That  exception  in- 
volves the  path  in  which  the  ship  is  restricted  from  turning.  For 
this  exception  the  program  uses  the  code  for  the  parallel  case  in 
which  the  MOB  was  seen  going  overboard.  With  the  exception  noted 
above,  lines  1600  through  2085  handle  the  paths  covering  the 
cases  in  which  the  MOB  was  seen  going  overboard.  Also  there  are 
subroutines  that  get  called  at  different  points  along  each  of  the 
paths.  One  of  these  subroutines,  see  lines  6500  through  6599, 
page  E-11,  gathers  the  statistics  when  called.  The  variable  09 
and  array  element  F(l)  together  determine  which  set  of  statistics 
to  up  date.  Separate  sets  of  statistics  accumulate  for  the  "seen" 
and  "not  seen"  cases;  five  sets  for  each.  For  each  set  of  statis- 
tics, subroutine  6500  accumulates  the  number  of  times  the  event 
occurred,  the  sum  of  the  times  at  which  the  event  occurred  (to 
compute  the  mean  time),  the  minimum  time,  and  the  maximum  time. 

Two  other  subroutines  may  get  called  in  each  path.  One  of  these, 
lines  7000  through  7599,  pages  E-11  andE-12,  sets  up  array  T3  with 
values  needed  to  perform  a search.  The  other  subroutine,  lines 
9400  through  9499,  page  E-16,  performs  the  search  for  the  MOB. 

Note  that  many  conditions  can  cause  the  rescue  attempt  to  fail.  Al- 
most every  failure  results  in  exit  from  the  main  program  flow  to 
a unique  line.  This  allows  each  cause  of  failure  to  set  a flag 
indicating  what  caused  the  attempted  rescue  to  fail.  In  addition 
as  the  program  proceeds  down  a given  path  flags  are  set  at  a stra- 
tegic junctures  in  the  path  so  the  course  of  each  simulation  can 
be  traced  precisely  if  the  user  selects  debug  print  #2  which  prints 
the  values  of  the  flags  after  each  simulation. 
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3.2.2. 1 MOB  Seen  or  Not  Seen  Going  Overboard 

Picking  up  the  detailed  discussion  again  at  line  800,  page  E-3, 
the  next  executable  statement,  line  830,  uses  the  random  number 
generator  and  the  probability  the  MOB  was  seen  going  overboard, 

PI  in  P2(l),  to  perform  the  "seen"-"not  seen"  dichotomy.  The 
control  jumps  to  line  1600  if  the  MOB  was  seen  going  overboard. 
Otherwise  control  continues  to  line  840.  Line  850  sets  the  first 
element  in  the  flag  array,  F,  to  unity.  F(l)  equal  to  one  indi- 
cates "not  seen"  while  F(l)  equal  to  two  indicates  "seen".  Line 
855  increments  the  tally  of  the  number  of  times  the  MOB  was  not 
seen  going  overboard,  S8(2).  Note  subroutine  6500  was  not  used 
because  this  event  requires  only  a count,  the  time  at  which  the 
event  occurs  has  no  significance.  Line  860  sets  the  variable  P 
to  the  probability  the  MOB  was  wearing  a PFD.  Note  that  this 
probability  depends  upon  whether  or  not  the  MOB  was  seen  going  over- 
board. Line  870,  calls  subroutine  8500,  page  E-14,  to  compute  the 
survival  time  due  to  drowning  which  depends  upon  whether  or  not 
the  MOB  had  floation  of  some  kind  (PFD  or  Life  Ring).  Lines  880 
and  882  set  the  survival  time  to  the  lessor  of  the  time  to  drown 
and  the  time  to  die  due  to  hypothermi a . Note  that  the  time  to 
drown  used  a variant  from  the  Rayleigh  distribution.  All  the  dis- 
tribution subroutines  return  the  variant  in  variable  R3.  Next, 
lines  888  through  920  compute  the  time  since  the  MOB  was  last  seen 
and  the  time  from  when  the  MOB  went  overboard  until  missed.  The 
time  since  last  seen,  in  the  simulation,  has  a minimum  of  15  minu- 
tes, a mode  of  45  minutes  and  a Rayleigh  distribution.  Since  the 
Rayleigh  distribution  subroutine  at  line  8200  has  a minimum  of  zero, 
lines  890  and  900  select  a variant  from  a Rayleigh  distribution 
having  a 30  minute  mode  and  line  910  adds  the  15  minute  minimum 
to  the  variant  to  produce  the  desired  time  since  last  seen.  The 
time  from  when  the  MOB  went  overboard  until  missed  consists  of  a uni- 
formly distributed  fraction  of  time  since  last  seen.  This  compu- 
tation occurs  in  line  920.  Note  that  this  method  of  computing  the 
time  missed  can  result  in  the  time  missed  less  than  the  minimum 
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time  last  seen.  Lines  922  through  928  complete  the  computation 
of  the  navigational  error  by  adding  the  term  that  depends  upon  the 
time  period  from  the  time  the  MOB  went  overboard  until  the  crew 
missed  the  MOB.  The  running  time  for  the  simulation  appears 

in  the  variable  T which  line  930  sets  to  the  time  to  miss  the 

MOB.  The  survival  time  gets  put  into  variable  TO  in  line  934  while 

line  940  tests  to  see  if  the  MOB  still  lives.  If  the  MOB  expires 

at  or  before  getting  missed,  control  transfers  to  line  3100,  page 

E-7 , which  sets  flag  F(6)  to  unity  and  jumps  to  the  common  EXIT 
point  at  line  5900,  page  E-8.  Lines  945  through  990  compute  the 
time  to  notify  the  bridge,  a normal  variant,  increment  the  running 
time,  T,  and  test  to  see  if  the  MOB  still  lives.  If  the  MOB  has 
expired  control,  in  line  990,  goes  to  line  3200  on  page  E-7  where 
flag  F(6)  gets  set  to  two  and  control  passes  to  line  5900  on  page 
E-8.  If  the  MOB  lives,  control  proceeds  normally  to  line  1000, 
page  E-4,  to  gather  statistics  for  the  MOB's  who  live  until  the 
bridge  receives  notice  of  a MOB  situation.  Note  that  subroutine 
6500,  page  E-11,  handles  the  updating  of  approriate  tallies. 

3. 2. 2. 2 Ship  Restricted  or  Not  Restricted  From  Turning 

Line  1030,  page  E-4,  performs  the  "ship  restricted  from  turning"- 
"not  restricted"  dichotomy.  Control  proceeds  normally  to  line  1040 
for  the  "not  restricted"  case  and  jumps  to  line  1500  for  the  "ship 
restricted  from  turning"  case.  In  line  1050  flag  F(2)  receives 
a unity  value  to  indicate  "ship  not  restricted". 

3. 2. 2. 3 Search  With  Ship  When  moB  Not  Seen 

Line  1060  performs  the  final  branch  determining  which  of  the  five 
paths  the  simulation  will  follow.  In  this  case  the  user  can,  in 
the  Operator  Program,  elect  to  use  or  not  to  use  the  rescue  boat 
for  the  search  by  the  reply  given  to  the  question  "USE  BOAT  FOR 
SEARCH?".  If  the  user  has  elected  to  use  the  rescue  boat  for 
search  control  jumps  to  line  1200  to  conduct  the  search  with  both 
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the  rescue  boat  and  the  ship.  Otherwise  control  proceeds  normally 
to  line  1100.  Thus  when  control  reaches  line  1100  the  program 
lies  on  the  path  for  "MOB  not  seen",  "ship  not  restricted",  and 
"search  with  ship  only";  line  1110  sets  flag  F(3)  to  unity  to 
indicate  "search  with  ship  only".  The  variable  Z,  which  serves 
as  a switch  variable  in  subroutine  7000,  pages  E-11  and  E-12,  gets 
set  to  three  in  line  1120,  page  E-4.  Line  1130  calls  subroutine 
7000  to  set  up  array  T3  with  values  approriate  to  the  type  of 
search  required.  Line  1140  calls  subroutine  9400,  page  E-15, 
to  perform  the  search.  Line  1148  increments  the  running  time,  T 
by  the  time  for  the  ship  or  rescue  boat  to  return  to  the  MOB's 
position.  Line  1160  tests  the  results  of  the  search.  If  the  search 
failed  line  1160  causes  a jump  to  line  3300,  on  page  E-7  . Note 
that  the  search  routine,  line  9400  on  page  E-15,  handles  all  the 
simulated  events,  except  rescue  boat  launch,  from  the  time  the 
bridge  receives  notification  until  the  MOB  is  found  alive  or  ex- 
pires. Therefore,  if  the  search  fails,  the  main  program  must 
determine  whether  or  not  the  man  expired  before  the  ship  or  rescue 
boat  returned  to  the  position  at  which  the  MOB  went  overboard. 

This  distinction  results  from  the  gathering  of  statistics  at  the 
point  when  the  ship  or  rescue  boat  returns  to  the  position  at  which 
the  MOB  went  overboard.  Lines  3300  through  3399  first  set  flag 
F(6)  to  three  then  jump  to  the  common  exit  at  line  5900  if  the  MOB 
expired  before  the  ship  or  rescue  boat  reached  the  MOB's  position. 

If  the  MOB  remained  alive  at  the  time  the  ship  or  rescue  boat  re- 
turned, line  3340  gathers  the  statistics  by  calling  subroutine  6500 
on  page  E-11  then  jumps  to  the  common  exit  point  at  line  5900, 
page  E-8.  On  the  other  hand,  a successful  search  allows  control 
to  continue  normally  to  line  1170.  Lines  1170  through  1185  incre- 
ment the  running  time,  T,  by  the  time  to  search  and  find  the  MOB 
and  gather  the  statistics  for  the  time  at  which  the  MOB's  posi- 
tion was  reached  by  the  ship  or  the  rescue  boat  and  the  time  at 
which  the  MOB  was  found.  Then  line  1190  jumps  to  line  1400,  page 
E-5 , to  complete  the  rescue. 
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3. 2. 2.4  Search  With  Both  Ship  and  Rescue  Boat 


In  line  1060  see  listing  page  E-4  and  discussion  above,  the  program 
made  the  final  branch  to  determine  which  of  the  five  paths  for  the 
rema inder  of  the  simulation  to  follow.  The  discussion  above  con- 
cerned one  of  the  five  paths,  this  discussion  will  take  up  another-- 
search  with  both  the  rescue  boat  and  the  ship.  This  path  begins  at 
line  1200,  page  E-4,  with  a search  first  with  the  ship  followed, 
at  line  1230,  by  the  concurrent  search  with  the  rescue  boat.  Line 
1212  sets  flag  F(3)  to  two  and  the  switch  variable,  Z,  to  three 
and  line  1214  calls  subroutine  7000,  pages  E-11  and  E-12,  to  set 
up  array  T3.  Then  line  1216  divides  the  value  of  the  navigational 
error  stored  in  array  T3  by  two  as  prescribed  by  the  Man  Overboard 
Sirnu 1 a ti on  Model  . Next  line  1218  calls  subroutine  9400,  page  E-15, 
to  perform  the  search.  Lines  1212  through  1222  save  the  results 
of  th  search.  Lines  1230  through  1238  test  to  see  if  the  sea  is 
too  rough  to  launch  the  rescue  boat  and  handle  a rescue  boat  launch 
failure.  Note  that  for  a failure  array  element  S8(3)  gets  incre- 
mented to  keep  a tally  of  rescue  boat  launch  failures;  flag  F(4) 
receives  the  value  four  to  identify  the  precise  kind  of  failure 
in  the  flags;  while  the  times  are  set  to  zero.  Observe  that  a res- 
cue boat  launch  failure,  in  this  case,  does  not  automatically  mean 
a failure  to  rescue  the  MOB.  For  a rescue  boat  failure,  control 
jumps  to  line  1250  while  for  a successful  launch  control  jumps 
to  line  1240,  page  E-4.  In  line  1240  the  switch  variable,  Z, 
receives  a value  of  four  and  the  tally  in  array  S8(4)  gets  in- 
cremented to  accumulate  the  number  of  times  the  rescue  boat  got 
successfully  launched.  Lines  1242  through  1246  set  up  the 
array  T3,  adjust  the  navigational  error  for  a search  by  both,  and 
perform  the  search.  In  the  path  under  discussion search  by  both, 

regardless,  of  whether  or  not  the  rescue  boat  launch  and/or  search 
succeeded,  control  reaches  line  1250.  Lines  1250  and  1252  deter- 
mine whether  the  ship  found  the  MOB,  jump  to  line  1256;  only  the 
rescue  boat  found  the  MOB,  jump  to  line  1260;  or  neither  found  the 


MOB,  jump  to  line  3400.  If  neither  found  the  MOB,  lines 
3400  through  3499,  page  E-7,  set  flag  F(6)  to  four,  test  to 
see  which  vessel,  if  either,  reached  the  MOB  before  he  expired, 
and  gather  the  statistics  if  either  vessel  reached  the  MOB  be- 
fore the  end  of  the  survival  time.  In  any  case  line  5900,  page 
E-8,  receives  the  control  soon  after  line  3400.  Meanwhile  for 
a successful  search  by  ship,  line  1256  determines  if  the  rescue 
boat  failed  or  the  ship  found  the  MOB  first.  If  so  control  jumps 
to  line  1270,  otherwise  control  proceeds  normally  to  line  1260. 
Control  also  reaches  line  1260  from  line  1254  when  only  the  rescue 
boat  finds  the  MOB.  Line  1260  handles  the  cases  in  which  only  the 
rescue  boat  finds  the  MOB  or  the  rescue  boat  finds  the  MOB  first, 
or  at  precisely  the  same  time  as  the  ship,  by  setting  flag  F(5) 
to  four  and  incrementing  the  running  time  by  the  time  for  the  res- 
cue boat  to  return  to  the  MOB's  position.  Line  1262  then  calls 
subroutine  6500  to  gather  the  statistics.  Lines  1264  through  1268 
increment  the  running  time  by  the  time  to  find  the  MOB,  gather 
the  statistics,  and  jump  to  line  2350  to  complete  the  simulation. 

If  only  the  ship  found  the  MOB  or  the  ship  found  the  MOB  first, 
lines  1270  through  1276  perform  the  time  incrementation  and  statis- 
tics gathering.  Whenever  the  MOB  has  been  found  by  the  ship  or, 
for  searches  by  both  ship  and  rescue  boat,  found  by  the  ship  first, 
control  eventually  gets  to  line  1400,  page  E-5.  Lines  1400  through 
1430  then  compute  and  increment  the  running  time  by  the  time  required 
for  the  ship  to  maneuver  close  to  the  MOB.  Line  1440  tests  to  see 
if  the  MOB  still  lives  when  the  ship  gets  nearby,  if  not,  control 
jumps  to  line  4900,  page  E-8.  Line  1450  transfers  control  to  line 
2100,  page  E-6. 

3. 2. 2. 5 MOB  Seen  Going  Overboard 

In  line  1030,  page  {30)  above  and  listing  page  E-4,  control  jump- 
ed to  line  1500  if  the  ship  was  restricted  from  turning.  The  dis- 
cussion now  considers  line  1500  and  following.  Lines  1500  through 
1520,  page  E-5,  set  the  switch  variable,  Z to  four  and  jump 
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to  line  1820,  page  E-5,  to  carry  out  a search  with  the  rescue 
boat.  The  code  beginning  at  line  1820  also  applies  to  the  other 
path  which  employs  only  the  rescue  boat  for  the  search.  On  page 
(29)  above,  line  830  page  E-3  of  the  program  listing,  the  program 
tested  whether  or  not  the  MOB  was  seen  going  overboard.  If  the 
MOB  was  seen  going  overboard  control  jumped  to  line  1600,  which 
the  discussion  has  just  reached.  Lines  1600  through  1695,  page 
E-5,  precisely  parallels  the  code  in  lines  840  through  882  dis- 
played on  page  E-3  and  discussed  on  page  (29)  above.  Lines  1700 
through  1750,  shown  on  page  E-5,  parallels  lines  945  through  1050 
which  appear  on  page  E-4.  Note  that  the  part  of  the 

program  under  discussion,  lines  1600  and  following,  have  no  section 
comparable  with  lines  888  through  940  because  the  MOB  was,  in  lines 
1600  and  following,  seen  going  overboard.  Note  that  line  1710  corres- 
ponds to  line  990  except  that  line  1710  jumps  to  line  3600  instead 
of  line  3200  if  the  MOB  expires  before  the  bridge  receives  notifi- 
cation. When  the  MOB  was  not  seen,  line  990,  line  3200  and  follow- 
sets  flag  F(6)  to  two;  for  the  "seen"  case,  line  1710,  line  3600, 
page  E-7,  and  following  sets  flag  F(6)  to  six.  Line  1750  causes 
control  to  resume  at  line  2000  if  the  ship  can  turn. 

3. 2. 2. 6 Ship  Restricted  From  Turning  When  MOB  Seen 

Lines  1800  through  1990  perform  a search  with  the  rescue  boat 
when  the  ship  cannot  turn  to  search.  The  program  in  lines  1820 
through  1990  also  applies  to  a search  by  rescue  boat  only  when  the 
MOB  was  not  seen  going  overboard.  Control  reaches  line  1820,  then, 
either  by  normal  progression  from  line  1810  or  by  jump  from  line 
1520.  Note  that  line  1510,  page  E-5,  sets  the  switch  variable,  Z, 
to  four  while  line  1810  sets  Z to  two.  The  switch  variable,  Z, 
determines  the  values  used  for  the  search,  see  subroutine  7000  on 
pages  E-11  and  E-12.  Line  1820  sets  flag  F(2)  to  two  to  indicate 
search  by  boat.  Lines  1830  through  1860  test  the  sea  state  against 
the  sea  worthiness  of  the  rescue  boat  and  handle  the  condition  of 
rescue  boat  launch  failure  by  a jump  to  line  3700,  page  E-7.  Lines 
3700  through  3799  set  flag  F(6)  to  seven,  increment  the  rescue 
boat  launch  failure  tally,  S8(3),  and  jump  to  the  common  exit  lin?. 


5900,  on  page  E-8.  For  a successful  rescue  boat  launch,  lines 
1870  through  1895  set  up  the  array  T3  by  a call  to  subroutine  7000, 
perform  the  search,  and  increment  the  running  time  to  the  point 
at  which  the  rescue  boat  reaches  the  MOB's  position.  Lines  1900 
through  1910  set  flag  F(3)  to  two,  increment  the  "rescue  boat 
deployed"  flag,  S8(4),  and  test  for  a successful  search.  If  the 
search  failed  control  jumps  to  line  3800,  page  E-8,  where  flag  F(6) 
gets  set  to  eight.  Continuing  the  discussion  of  a rescue  boat  g 

search  failure,  line  3830  tests  to  see  if  the  MOB  expired  before  j' 

the  rescue  boat  reached  hi'  position.  If  the  MOB  had  expired  by 
the  time  the  rescue  boat  returns  to  the  MOB,  control  goes  to  the 
common  exit  line.  Otnerwise  line  3840  gathers  the  statistics  first.  I 

For  a successful  search  lines  1930  through  1990,  page  E-6,  complete 
the  statistics  gathering  for  both  the  point  in  the  search  at  which 
the  rescue  boat  reaches  the  MOB's  position  and  the  finding  of  the 
MOB.  Line  1990  causes  a jump  to  line  2350,  page  E-6,  to  complete 
the  rescue.  j 

I. 

3. 2. 2. 7 Ship  Not  Restricted  From  Turning  When  MOB  Seen  i 

At  line  1750,  page  E-5,  the  program  decided  whether  or  not  the  i: 

ship  was  restricted  from  turning.  If  the  ship  could  not  turn,  ■ 

the  program  discussion  above  followed-,  the  discussion  below 

applies  if  the  ship  could  turn  and  search.  Lines  2000  through  ' 

2085,  page  E-6,  perform  this  search  and  gather  the  statistics. 

Except  for  setting  flags  to  different  values,  F(2)  and  F(3) 

set  to  unity  in  this  case,  the  switch  variable,  Z,  getting  a j 

unity  value  instead  of  two,  and  a different  jump  point  for  a | 

search  failure,  3900  instead  of  3800,  the  code  for  a search  with 

ship  exactly  equals  the  code  for  search  with  rescue  boat.  Note  . 

that  at  3920,  page  E-7,  the  flag  F(6)  gets  set  to  nine.  How-  '! 

ever,  the  ccue  in  lines  2100  and  following  has  no  parallel  in  the 

case  of  a search  with  rescue  boat.  Line  2100  may  be  reached  either 

by  normal  progression  from  line  2085  or  by  a jump  from  line  1450, 

page  E-5.  This  code  handles  the  case  of  a successful  search  by 

ship. 


35 


r 


3. 2. 2. 8 MOB  Found  By  Ship 

When  the  ship  successfully  finds  the  MOB  the  captain  decides 
whether  to  use  the  rescue  boat  to  bring  the  MOB  back  aboard  or 
recover  the  MOB  directly.  Currently  the  Man  Overboard  Simulation 
Model,  reference  1,  performs  this  decision  by  providing  a proba- 
bility which  depends  upon  the  ship  type.  The  probability,  PIO, 
appears  as  ship  characteristic  number  eleven,  Tl(ll),  and  P2(10). 

If  the  user  desires  different  values,  the  Man  Overboard  Operator 
Program  requires  modification.  The  DATA  statements  in  lines  9910 
through  9980,  page  C-4,  contain  probability  PIO  as  the  eleventh 
numerical  value  (there  are  twelve  numerical  values  in  each  DATA 
statement ) . In  the  program  under  discussion,  the  Simulation 
Program,  line  2110  uses  probability  PIO  with  the  random  number 
generator  to  simulate  the  captain's  decision.  For  recovery  with 
the  rescue  boat,  control  jumps  to  line  2200.  Otherwise  control 
advances  normally  to  line  2120.  If  the  program  decides  to  recover 
the  MOB  directly,  line  2130  determines  whether  or  not  the  ship's 
efforts  succeeded.  A failure  here  results  in  a jump  to  line  4100, 

page  E-8,  which  sets  flag  F(6)  to  ten  and  jumps  to  the  common  , 

1 

EXIT  point  at  line  5900.  On  the  other  hand,  a success  results  in  ; 

a jump  to  line  5000--the  first  of  three  success  exit  points. 

3. 2. 2. 9 Recover  of  MOB  With  Rescue  Boat 

For  a recovery  by  rescue  boat,  the  program  goes  to  line  2200  where 
a more  complicated  set  of  code  follov.'s.  First  the  program  tests 
flag  F(3).  This  flag  tells  whether  or  not  the  rescue  boat  has 
already  been  launched.  The  test  causes  a jump  to  line  2300  if 
the  rescue  boat  has  not  been  launched.  Control  continues  to 
line  2230  if  the  rescue  boat  got  successfully  launched  during  a 
search  with  both  rescue  boat  and  ship.  Lines  2230  through  2280 
determine  and  increment  the  running  time  by  the  time  for  the  rescue 
boat  to  return  to  the  MOB.  Note  that  this  provides  two  different 
formulas  for  the  time  for  the  rescue  boat  to  reach  the  MOB  de- 
pending upon  whether  or  not  the  ship  found  the  MOB  on  the  first 
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pass.  Lines  2285  and  2290  cause  a jump  to  either  line  4200, 
if  the  MOB  expired  before  the  rescue  boat  returned  or  line  2350 
if  the  MOB  was  reached  in  time.  In  the  event  , the  rescue  boat 
had  not  been  launched  successfully,  line  2220  caused  a jump  to 
line  2300.  Lines  2300  through  2310  determine  whether  or  not  a 
successful  launch  can  occur  and  jump  to  line  4300  for  a failure. 

Note  that  if  the  search  had  been  attempted  by  both,  the  rescue 
boat  launch  had  failed,  and  the  ship  successfully  found  the  MOB, 
line  2310  will  now  record  the  launch  failure.  Lines  2330  and 
2335  increment  the  running  time  by  the  amount  of  time  required  to 
launch  the  rescue  boat  and  the  tally  of  successful  rescue  boat 
launches,  S8(4),  by  one.  Line  2340  detemines  whether  or  not  the 
MOB  remains  alive  after  the  rescue  boat  launch  completes.  If 
not,  control  jumps  to  line  4400,  page  E-8. 

3.2.2.10  Maneuver  Rescue  Boat  NEAR  MOB 

Next  lines  2350  through  2390  compute  the  time  required  to  maneuver 
the  rescue  boat  near  the  MOB,  increment  the  running  time,  and  deter- 
mine whether  or  not  the  MOB  still  lives.  If  the  MOB  did  not  sur- 
vive until  the  rescue  boat  maneuvered  nearby,  control  jumps  to  line 
4500  on  page  E-8,  Note  that  control  can  reach  line  2350  either 
by  normal  progression  from  line  2340  or  by  a jump  from  lines  1266, 
1999,  or  2290  on  pages  F-5  and  E-6.  At  this  point  the  rescue  boat 
has  pulled  along  side  the  MOB. 

3.2.2.11  Bring  MOB  Aboard  Rescue  Boat 

Lines  2400  through  2450  compute  the  time  required  to  bring  the  MOB 
aboard  the  rescue  boat,  i nc remen t the  running  time,  and  test  the 
running  time  against  the  survival  time.  If  the  MOB  does  not  sur- 
vive the  time  required  to  come  aboard  the  rescue  boat,  control 
jumps  to  line  4600.  Lines  2460  and  2490  gather  the  statistics  at 
the  time  rescue  boat  successfully  pulls  the  living  MOB  aboard.  At 
this  point  the  survival  time  clock  stops  running.  Therefore,  the 
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time  for  the  rescue  boat  to  return  to  the  ship  does  not  affect 
the  simulated  time. 

3.2.2.12  Bring  MOB  Aboard  Ship 

The  MOB  is  not  considered  "rescued"  until  back  aboard  the  ship. 

The  MOB  can  get  aboard  the  ship  either  by  a successful  rescue 
boat  recovery  or  by  other  means.  The  Man  Overboard  Simulation 
Model,  reference  1,  has  provision  for  recovery  by  either  means 
as  determined  by  probability  P13.  Probability  P13  has  a value  of 
zero  so  the  only  way  the  MOB  can  get  back  aboard  the  ship  is  by  a 
successful  rescue  boat  recovery.  The  Man  Overboard  Simulation 
Program  implements  the  recovery  in  lines  2500  through  2570.  Lines 
2520,  2540,  and  2560  use  probabilities  P13,  P14,  and  P15  res- 
tively along  with  the  random  number  generator  to  accomplish  these 
final  switches.  Successfully  getting  the  rescue  boat,  with 
crew  and  MOB,  aboard  causes  a jump  to  line  5200,  page  E-7,  at  line 
2560.  At  line  2570  failure  results  in  a jump  to  line  4800. 

Pages  E-7  and  E-8  contain  the  part  of  the  program  that  handles  the 
successes  and  failures.  Jumps  to  line  5100  and  5200  cause  flag 
F(6)  to  get  set  to  21  or  22  respectively.  For  either  success  lines 
5230  and  5260  gather  the  statistics.  All  successes  ultimately 
execute  line  5270  which  accumulates  the  total  number  of  MOB ' s saved 
regardless  of  whether  or  not  the  rescue  boat  partipated  in  the  res- 
cue. Note  that  flag  F(6)  may  take  on  any  one  of  22  different  values 
with  values  one  through  eighteen  different  types  of  failures,  value 
twenty  indicating  recovery  by  ship  without  using  the  rescue  boat 
to  recover  the  MOB,  and  values  21  and  22  indicating  successful 
recovery  using  the  rescue  boat.  All  the  points  to  which  the  pro- 
gram jumps  to  indicate  a success  or  a failure  appear  on  pages  E-7 
and  E-8  in  lines  3100  through  5270. 


3.2.3  Output  Section 

Eventually  all  simulations  transfer  control  to  line  5900,  page 
E-8.  Lines  5900  through  5940  produce  a print-out  for  each  simu- 
lation, if  the  user  selected  debug  print  tl2.  Line  5999  terminates 
the  FOR-NEXT  loop  that  began  with  line  480  on  page  E-2.  Unless 
the  user  requests  one  or  more  of  the  debug  print-outs,  no  print- 
out occurs  until  after  control  passes  line  5999  to  line  6000.  The 
Man  Overboard  Simulation  Program  provides  two  different  print-outs 
summarizing  the  results  of  the  simulations.  Lines  6000  through 
6020  produce  a one  page  report  on  the  simulations  containing  a 
summary  of  both  the  input  data  and  the  results  of  the  simulations. 

The  user  requests  this  one  page  report  by  requesting  a "REGULAR 
PRINT".  The  PRINT  statements  appear  as  subroutine  6100  which  appears 
as  lines  6100  through  6499  on  pages  E-9  through  E-11.  If  the  user 
requested  a "COMPRESSED  PRINT",  lines  6026  through  6066  produce  a 
summary  of  the  results  of  the  simulation  (without  a print-out  of 
the  input  data)  in  five  lines.  Finally,  lines  6070  through  6090 
write  the  results  to  the  disk  file  opened  in  line  156  on  page  E-1. 

Note  that  lines  160  through  26.2  write  the  input  data  to  the  output 
file  so  the  output  file  contains  the  input  data  followed  by  the  re- 
sults of  the  simulations.  The  last  line  of  the  main  program,  line 
6099  on  page  E-8,  transfers  control  back  to  line  140  on  page  E-1 
to  read  the  next  group  of  input  data  from  the  input  disk  file. 

3.2.4  Subroutines 

The  main  program  calls  a number  of  subroutines  which  require  dis- 
cussion. The  subroutines  begin  with  subroutine  6100  on  page  E-9. 
Subroutine  6100  produces  the  "REGULAR  PRINT".  Subroutine  6500 
on  page  E-11  accumulates  the  statistics  for  ten  different  events-- 
five  each  for  the  "seen"  and  "not  seen"  cases.  Subroutine  7000,  pages 
E-11  through  E-13,  sets  up  an  array,  T3,  containing  all  the 
parameters  needed  to  perform  a search.  Subroutine  7800  on  page 
E-13  prints  the  heading  for  the  "REGULAR  PRINT"  while  subroutine 
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7900  produces  the  "COMPRESSED  PRINT"  heading.  The  subroutine 
that  begins  with  line  8000  selects  a variant  from  a normal  distri- 
bution having  a specified  mean,  minimum,  maximum,  and  standard 
deviation.  A call  to  subroutine  8100  selects  a variant  from  a nor- 
mal distribution  having  the  mean  specified  with  a minimum  of  zero, 
a maximum  of  twice  the  mean,  and  a standard  deviation  of  one-half 
the  mean.  This  results  in  a normal  distribution  having  the  speci- 
li  fied  mean  with  a range  of  two  sigma  (2a)  on  each  side  of  tiie  mean. 

The  following  subroutine,  subroutine  8200  provides  the  program  with 
a Rayleigh  distribution,  reference  3,  while  subroutine  8300  makes 
a uniform  distribution  available.  Subroutines  8400  and  8500  compute 
the  survival  time  due  to  and  floatation  respectively. 

Subroutines  8700  and  8800  produce  debug  print-outs  #1  and  #2  res- 
pectively. Subroutine  9000  gives  values  to  a number  of  variables 
which  remain  constant  throughout  the  simulation  runs.  The 
little  short  subroutine  beginning  with  line  9200  homes  and  erases 
the  video  display.  The  very  core  of  the  entire  simulation  con- 
sists of  the  events  from  the  time  the  bridge  receives  notification 
of  a man  overboard  condition  until  the  MOB  is  spotted  in  the 
water.  The  core  of  the  simulation  appears  as  subroutine  9400 
which  receives  its  input  parameters  in  array  T3  and  puts  its  re- 
sults in  flag  F(4),  and  variables  T2,  T4,  and  K.  Finally  the  dis- 
tance of  visibility  from  both  the  ship  and  the  rescue  boat  gets 
computed  in  subroutine  9500. 

3. 2. 4.1  Subroutine  6100:  Regular  Print 

Subroutine  6100  uses  a number  of  un-formatted  and  formatted  (PRINT 
USING)  statements  to  produce  a one-page  report  containing  both 
the  input  data  and  the  results  of  a specified  number  of  simula- 
tions. The  user  invokes  the  print-out  by  requesting  a "REGULAR 
PRINT".  Line  6125  defines  the  format  for  the  two  lines  of  the 
input  data  part  of  the  report  that  use  formatted  PRINT  statements, 
The  two  lines  of  input  data  that  use  formatted  PRINT  appear  in 
lines  6154  and  6157  on  page  F-9.  Line  6130  on  page  E-9 
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sets  up  a number  of  tab  stops  for  use  through  the  remainder  of 
the  subroutine.  Lines  6140  and  6184  print  the  input  data  using 
un-formatted  PRINT  statements  for  all  lines  except  the  two  noted 
above.  Line  6186  begins  the  print-out  of  the  results  of  the  si- 
mulations by  declaring  how  many  simulations  constituted  the  simu- 
tion  run.  Line  6188  simply  produces  two  blank  lines.  Lines  6190 
and  6192  compute  the  overall  fraction  of  MOB's  rescued  by  the  res- 
cue boat  and  establish  the  format  with  which  to  print  the  value. 
Lines  6194  through  6220  print  the  lines  containing  the  overall 
fraction  of  MOB's  rescued  by  the  rescue  boat.  Since  this  is 
a key  result  of  the  simulation,  the  value  receives  a distinctive 
treatment  by  providing  a surrounding  box  of  asterices  (*).  Next, 
two  lines  appear,  6222  and  6224,  to  print  the  number  of  times  the 
rescue  boat  was  deployed  and  the  launch  failed  due  to  sea  state 
followed  by  two  blank  lines.  Lines  6252  through  6254  print  the 
number  of  times  the  MOB  was  seen  and  not  seen  going  overboard. 

Note  that  line  6254  print  a colon  (:)  two  columns  ahead  of  the 
title  "MOB  NOT  SEEN".  A colon  appears  in  this  same  column  on 
each  line  in  the  remainder  of  the  print-out  to  separate  the  "not 
seen"  results  from  the  "seen"  results.  Line  6260  produces  two 
lines  that  are  blank  except  for  the  colon  discussed  above.  Lines 
6262  and  6264  produce  the  headings  for  the  columns  that  constitute 
the  remainder  of  the  report  page.  Note  that  the  two  hal ves--"seen" 
and  "not-seen"--of  the  report  have  identical  headings  except  for 
colon  separating  the  two  halves.  Lines  6266  and  6268  print  the 
heading  line  "MOB  ALIVE  WHEN:"  proceeded  and  followed  by  a line 
blank  except  for  the  colon.  Lines  6270  through  6292  print  five 
lines  of  information  with  each  line  of  information  followed  by 
a line  blank  except  for  the  col  on  separati ng  the  "seen"  and  "not 
seen"  information.  The  text  identifying  the  numerical  information 
on  the  line  gets  printed  by  the  PRINT  statements  in  lines  6270, 
6274,  6280,  6286,  and  6290.  Subroutine  6400,  lines  6400  through 
6499,  prints  the  numerical  information  using  the  PRINT  USING  state- 
ments in  lines  6470,  6471,  and  6474.  Note  that  the  variable  J8 
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receives  a value  before  each  subroutine  call  to  determine  what 
information  the  subroutine  will  print.  The  subroutine  at  6400 
prints  the  "seen"  information  followed  by  a colon  and  then  the 
"not  seen"  information.  The  subroutine  follows  each  line  of  in- 
formation by  a line  blank  except  for  the  colon. 

3. 2. 4. 2 Subroutine  6500:  Accumulate  Statistics 

The  subroutine  on  page  E-11  that  begins  with  line  6500  accumulates 
the  statistics  for  the  simulations  in  a run.  Variable  J9,  an  input 
to  the  subroutine,  determines  which  set  of  statistics  to  update. 

The  array  S9  accumulates  a count  of  the  number  of  times  an  event 
occurs.  Array  T9  sums  the  time  at  which  the  event  occurs.  After 
the  run  completes,  the  total  time  gets  converted  into  the  mean 
time  by  dividing  by  the  count  in  S8.  Arrays  N9  and  M9  keep  the 
minimum  and  maximum  time  respectively.  Note  that  values  of  J9 
from  one  through  five  apply  to  the  cases  in  which  the  MOB  was  seen 
going  overboard  while  J9  equal  to  six  through  ten  accumulate  values 
when  the  MOB  was  not  seen.  Line  6530  tests  J9  to  see  if  it  is 
greater  than  five  and  jumps  to  line  6560  if  it  is.  Line  6540  tests 
the  flag,  F(l),  to  determine  whether  the  current  case  is  a "seen" 
and  if  so  jumps  to  line  6560.  Line  6550  increments  J9  by  five. 

Thus  if  subroutine  6500  gets  called  with  "not  seen"  information  with 
J9  less  than  five  (which  applies  to  "seen"  cases),  line  6550  makes 
J9  five  greater  so  the  remainder  of  the  subroutine  will  update  the 
proper  elements  in  the  arrays.  This  arrangement  allowed  parts  of 
the  program  to  share  code  for  "seen"  and  "not  seen"  cases. 

3. 2. 4. 3 Subroutine  7000:  Initialize  Search 

Subroutine  7000  begins  on  page  E-ll  and  concludes  on  page  E-13 
The  subroutine  sets  up  array  T3  to  provide  the  input  parameters 
to  the  search  routine  beginning  at  line  9400.  Table  I below  shows 
the  values  computed  for  each  element  of  the  array  for  each  of  the 
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four  possible  types  of  searches  which  subroutine  9400  will  per- 
form. The  subroutine  uses  variable  Z as  a switch  variable  to  de- 
termine which  set  of  equations  to  use.  Note  that  the  four  types 
of  search  correspond  to  four  of  the  five  paths  the  simulation  may 
follow.  The  fifth  path,  search  by  both  ship  and  rescue  boat  when 
the  MOB  was  not  seen  going  overboard,  consists  of  a special  combi- 
nation of  the  "not  seen"  cases  from  Table  I below.  The  special 
combination  consists  of  a search  by  ship  with  the  navigation  error 
set  to  one-half  the  value  normally  computed  followed  by  a search 
using  the  rescue  boat  with  the  diminished  navigational  error.  The 
subroutine  7000  calls  subroutines  7200,  7300,  or  7400  depending 
upon  the  value  of  the  switch  variable,  Z,  to  compute  the  values 
of  T3(l)  and  T3(2).  The  subroutine  continues  at  line  7100  fo- 
the  "seen"  cases  and  at  line  7500  for  the  "not  seen"  cases. 


TABLE  I:  Variables  in  Array  T3 
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Man  seen  going  overboard 

Man  not  seen  going  overboard 

Search  with  Ship 

Search  with  Boat 

Search  with  Ship 

Search  with  Boat 

Switch 

Variable 

1 

2 

3 

4 

Subscript 
for  T3 
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Tj 

'’tu 
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j 

2 

‘v 

s 

y 

VT„ 

Tl*(VT,+i,Ts^)  j 

i 

3 

1 

c/> 

Ts-T 

^s-'^  1 

4 

Navigational  Error  Navigational  Error  Navigational  Error  Navigational  Error  ! 

1 

5 

0 

0 

dv 

^S 

dv 

B 

6 

0.5 

0.5 

\s 

''^LS  i 

i 

7 

0 

0 

8 

0.5  RND(l) 

0.5  RND(l) 

^M 

9 T3{3)-T3(l)-T3(2) 

T3(3)-T3(l)-T3(l) 

T3(3)-T3(l)-T3(l)  T3(3)-T3(l )-T3(2)  1 

V(4) 

V(4)(TLs+Ty) 

10 

P^2=0.9 

'*12" 

0.9 

P8=0.5 

P8=0.5  1 

3, 2. 4. 4  Subroutine  7600:  Debug  Print  #3 


Subroutine  7600  performs  debug  print  #3.  The  subroutine,  appear- 
ing on  page  E-13,  prints  a heading,  some  of  the  ship  character- 
istics, and  the  rescue  boat  characteristics.  All  these  values 
are  simply  part  of  the  input  data;  all  remain  constant  for  all 
simulations  in  a run. 

3. 2.4. 5 Subroutine  7800:  Regular  Print  Heading 

On  page  E-13  subroutine  7800  appears  which  prints  the  heading  for 
the  regular  print-out.  The  subroutine  consists  entirely  of  simple 
PRINT  statements. 

3. 2. 4. 6 Subroutines  8000,  8100,  8200,  and  8300:  Distributions 

On  page  E-13  and  E-14  the  subroutines  for  the  various  distribu- 
tions appear.  Each  of  these  subroutines  follow  precisely  the 
similar  subroutines  in  the  Abandon  Ship  Simulation  Program.  For 
each  of  the  distribution  subroutines,  the  input  variables  appear 
in  array  R while  the  selected  variant  appears  in  variable  R3. 

For  the  normal  distribution  subroutine  which  begins  in  line  8000, 
the  mean  inputs  in  R(l),  the  minimum  comes  from  R(2),  the  maxi- 
mum appears  in  R(3),  and  R(4)  contains  the  standard  deviation. 

The  special  distribution  which  begins  at  line  8100  receives  a mean 
in  R(l)  and  computes  values  for  R(2),  R(3),  and  R(4)  then  jumps 
to  subroutine  8000  to  select  a variant  from  the  normal  distribution 
and  return  to  the  calling  program.  Subroutine  8100  sets  R(2) 
(minimum)  to  zero,  R(3)  (the  maximum)  to  twice  the  mean,  in  R(l) 
and  R(4)  (the  standard  deviation)  equal  to  one-half  the  mean. 

Thus  subroutine  8100  produces  a normal  distribution  having  a two 
sigma  (2a)  range  on  each  side  of  the  mean.  Subroutine  8200  selects 
variant  from  a Raleigh  distribution  given  the  mode  in  R(l),  see 


reference  3.  The  last  of  the  distributions  begins  at  line  B300 
on  page  E-14  and  concludes  with  line  8309.  The  uniform  distribu- 
tion, subroutine  8300,  requires  the  minimum  in  R(?)  and  the  maxi- 
mum in  R(3).  Note  these  are  the  same  element  nj.mbers  as  for  the 
corresponding  values  in  the  normal  distribution. 

3. 2. 4. 7 Subroutines  8400  and  8500;  Survival  Time 

Subroutines  8400  and  8500  on  page  E-14  compute  the  components 
of  the  survival  time.  Subroutine  8400  computes  the  survival  time 
due  to  hypothermia  by  setting  up  the  inputs  for  a normal  distri- 
bution then  jumping  to  line  8000.  The  minimum  and  maximum  follow 
from  a curve  fit  to  a published  curve  (actually  a hand  having  an 
upper  and  lower  bound),  see  reference  4,  while  the  mean  and  standard 
deviation  appear  as  the  mean,  between  minimum  and  maximum,  and  the 
assumption  that  the  upper  and  lower  bound  constitute  two  s i gma  ( 2a ) 
deviations  from  the  mean.  The  subroutine  starting  on  line  8500 

establishes  the  survival  time  due  to  flotation.  The  subroutine 
requires  the  probability  the  MOB  was  wearing  a PFD  in  variable  P, 
the  mode  of  the  survival  time  without  flotation  in  array  element 
T5(3),  and  the  mode  of  the  survival  time  with  flotation  in  array 
element  T5(4).  Line  8510  uses  the  random  number  generator  to  deter- 
mine whether  or  not  the  MOB  has  flotation.  Note  that  lines  8530 
and  8570  set  flag  F(2)  to  one  for  flotation  and  two  for  no  flota- 
tion. Regardless  of  whether  or  not  the  MOB  has  flotation,  the  sub- 
rout i ne  j umps  to  the  Rayleigh  distribution,  line  8200,  to  select 
the  survival  time  and  return  to  the  main  program. 

3. 2. 4. 8 Subroutines  8700  and  8800;  Debug  Prints  #1  and  #2 

Subroutine  8700  produces  the  debug  print-out  when  the  user  requests 
"DEBUG  PRINT  #1".  The  routine  consists  mostly  of  PRINT  statements. 
The  print-out  prints  the  variables  that  remain  constant  during  a 
given  simulation  with  appropriate  headings  to  identify  the  varia- 
bles. Since  the  call  to  this  subroutine  lies  within  the  loop  that 
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determines  how  many  simulations  will  be  done,  this  subroutine  can 
produce  a large  amount  of  output  if  enabled.  Line  8745  converts 
the  variable  S into  a string  and  truncates  it  to  fifteen  characters 
Thus  lines  8745  and  8750  could  have  employed  a PRINT  USING  state- 
ment. This  subroutine  gets  called  near  the  beginning  of  each  simu- 
lation, Subroutine  8800,  on  the  other  hand,  gets  called  at  the  end 
of  each  simulation  when  enabled  by  the  user  requesting  "DEBUG  PRINT 
#2".  Subroutine  8800  jses  the  format  lines  8820  and  8830  in  the 
PRINT  USING  statements  in  lines  8845  and  8830.  Lines  8840  through 
8860  print  the  six  flags,  F(l)  through  F(6).  Line  8878  prints  the 
running  time  at  the  end  of  the  simulation,  T,  the  survival  time  TO, 
the  last  value  returned  by  a distribution,  R3,  and  the  wave  height, 
V(2).  The  print-out  prints  one  line  for  each  simulation;  therefore 
for  a run  of  1000  simulations  (typical  number  in  a run)  the  print- 
out would  produce  1 000  lines  of  output  if  the  user  selected  "I'EBUG 
PRINT  #2". 

3. 2. 4. 9 Subroutine  9000:  Initialize  Constants 

Subroutine  9000  begins  on  page  E-14  and  concludes  on  page  E-15. 

This  subroutine  provides  values  for  a number  of  variables  that  re- 
main constant  throughout  all  the  simulations  in  a run.  The  sub- 
routine consists  almost  entirely  of  assignment  statements.  Note 
that  for  the  most  part  the  variables  appear  in  alphabetical  numer- 
ical oroer.  Variable  B9  gets  set  to  a value  near  the  largest  the 
machine  can  represent.  Variables  CO  through  C4  receive  values 
equal  to  their  terminating  digit.  The  variables  in  array  DO  no 
longer  have  any  use  in  the  program.  Variable  L9  has  a v?lue  near 
thesmallest  positive  value  the  machine  can  represent.  Variables  P3 
through  P6  constitute  a set  of  variables  used  to  compute  probabili- 
ty P15.  Variables  SI  through  S6  constitute  a set  of  constants  for 
the  survival  time  due  to  hypothermia  calculation.  Lines  9090 
through  9098  set  up  variable  B$  to  a string  of  blanks,  but  B$  no 
longer  fills  any  requirement.  Line  9099  returns  control  to  the 
main  program. 


uJLm 
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3.2.4.10  Subroutine  9200:  Home  and  Erase  Video  Display 


Subroutine  9200,  appearing  on  page  E-IS  simply  clears  and  erases 
the  video  display.  This  simple  function  was  put  into  a subroutine 
so  that  conversion  to  different  machines  of  the  program  would  be 
simplified.  Each  type  of  machine  requires  a different  code  to 
accomplish  this  function. 


3.2,4.11  Subroutine  9400:  Return  and  Search 


Subroutine  9400  constitutes  the  core  of  the  simulation.  The  sub- 
routine appears  on  page  E-15.  The  subroutine  handles  the  simulation 
from  the  time  the  bridge  gets  notified  of  the  MOB  until  the  ship 
finds  or  fails  to  find  the  MOB.  The  subroutine  first  computes 
the  time  for  the  ship  or  rescue  boat  to  return  to  the  MOB ' s posi- 
tion, line  9430.  The  test  in  line  9432  causes  a jump  to  line  9465 
if  the  MOB  did  not  survive  until  the  ship  or  rescue  boat  returned. 
Line  9434  tests  to  see  if  the  MOB  will  be  in  visible  range  when 
the  ship  returns;  if  so  control  goes  to  line  9480.  Line  9436  tests 
to  see  if  the  MOB  will  expire  before  the  end  of  one  search  pass; 
if  so,  control  jumps  to  line  9475,  Lines  9440  through  9452  perform 
the  multi-pass  search  with  a successful  find  causing  a jump  to  line 
9490  and  a failure  going  either  to  line  9470  or  9460.  Lines  9460 
through  9490  receive  the  various  branches  as  a result  of  success 
or  failure.  Each  of  these  lines  sets  flag  F(4)  to  a different 
value.  Values  less  than  eight  indicate  a failure  while  values  8, 

9,  and  10  indicate  a success.  The  specific  value  tells  how  the 
success  or  failure  occured. 


3.2.4.12  Subroutine  9500:  Distance  of  Visibility 

Subroutine  9500,  on  page  E-15,  computes  the  visibility  from  the 
ship  and  from  the  rescue  boat.  The  equations  use  the  height  of 
the  lookout's  eye,  Tl(4)  for  the  ship  Dl(5)  for  the  rescue 
boat,  the  environmental  visibility,  T5(15),  and  a maximum  visibi- 
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APPENDIX  A:  Abandon  Ship  Simulation  Program  Listing 


^ am  Kl(ll)  ,N5(2l)  ,V1(  IS  ' ,P1(  15 ) ,T5(  10 ) 

b UIM  C:0$(10)64,C0(y,10),Yl(ll,3),M6(d8)  ,M4(S8)  .RKlS)  ,Af>e4  , A1464  ,M7iG4  , PS-J  b4 
/ UiM  V4b4./0$t>4 

1000  Htn  AbANOUN  SHiH  SiMULAIlUN  HHUt^KAM 

loot  oubUb  booo 

1004  Al»>‘“AbANUUN  bHlP  blMULAliUN" 

100b  GUSUb  9000:PKiNT  Ai* 
looa  INPUi  "StRlAL  NUMbtH",b9 
1010  M=lNr(S9) 
lOlS  PKINI  ‘INlllALl/lNb" 

1014  GUbUb  1504 

101b  PUR  i=c:l  10  M:/1=HND((-1>:N£AI  1 
lolh  GUbUb  104b:KfcM  SHIP  CH. 
lObO  GUbUb  llOSIRtM  HEbCUt  bUAl  CH . 
lObb  GUbUb  1134: HEM  CASUAL rv  TYPE. 

1084  GUbUb  1S00:HEM  PHINI  INPU  I DAI  A . 

1085  ze=o 

108b  M=Z8 

108b  PUH  Kl=/8  lU  X1(Z8+1) 
lObO  E9=Z8:X1(C8+1}=Z8 
1038  GUbUb  IfaM 
1034  IP  E9<28  THEN  1044 
103b  GUbUb  IbbO 

103b  IP  E9=Z8  THEN  1039:GOru  1040 

1033  GUbUb  8044 

1040  NEXT  K1 

1048  GUbUb  ISbb 

1044  GUlU  1000 


A-1 


Ib04  HtM 
lbl4  KkbTOKE 
Iblb  K»i:PKlNr 
Ibib  PRINT  HfcX(OU) 

IbeO  RfcAD  Pl(14)  ,Hl(lb) 

, Ib'JO  RtM  ? 

1 ibay  FOR  i=nu  io:rhad  rb(i):NtXT  i 

lba4  R£M  CASUAL rv  TYPfcS 
Ibbb  RfcAU  113 
lb40  FUR  l=irU  M3+1 
IbAS  RhAU  CO«(i) 
lb44  FUR  J=1TU  10 
lb4b  RkAl)  COd.J) 
ib4a  NEXT  J:NEXr  1 
IbbO  REM  SHIP  TYPES 
IbbE  READ  MlJ 
Ibbb  FUR  1=1TU  MS+l 
IbbS  REAU  I9$<I) 

IbbO  FUR  J»1IU  11 
IbbE  REM  V 
lb64  READ  T9(1,J) 

Ibbb  NEXT  J:NEXT  1 
IbbS  REM  RESCUE  BUAT 
lb/0  READ  MB 
Ib^E  M1=MB+19  * 

ib/’fa  FUR  i=iru  Ml+1 

Ib/S  REM  V 

IbSO  REAU  MS$(I)  ,Mb<I) ,M4(I) 

Ib&E  NEXI  1 
ibb4  Bb=999 

IbSb  C1=1:CE=E:C3=3:C4=4 
Ibbs  C'b=.b 

lb90  Cb«b:C7=(':C8=8:C9=9 
lb9E  ZO=bO 

lbb4  2 04= “CHARACTER IS) ICS." 

Ib9b  2b=.yb 
lb9S  Lb=9.bk-39 
IbOO  P3=100 
IbOE  P0=#P1 
ib04  R^=CB*PO 
IbOb  Sl=.0084:Se=8.1E-b 
IbOB  S3=.l:S4=5.9E-S 
IblO  Sb=.10l:Sb=E.ES 
lbl4  2E=0 
Xblb  21=RNU<-C1) 
ibl8  RETURN 


1 
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13 /£ 
13/4 
13Va 
138  U 

1383 

1384 
138to 
1388 
1380 

1383 

1384 
138b 
1388 
1400 

1403 

1404 
140b 
1408 
1410 
1413 


KEM  PI 

UA14  0.03,0.b 

UA(A  lb.0,0,b,0,30,10,0,3  .3,0.3:Htl1  T5 
Kkfl  CO 

UAfA  SrUkM  MAX.  INUhX 

UAIA  "PlKt" ,0,0, 0.0b, 0,0. Ob, 0.1, 0,0, 30,1 
DATA  “LULLISIUN  t.  f- IHh  " , 1 , 0 , 0 . 03 , 0 . 5 , 0 . Ob  , 0 . 1 ,20 , 0 ,30  ,P 
DAfA  “CULLlblUN  St  S INKING"  , 0 , 0 , 0 . 03 , 0 .5 , 0 , 0 ,20  ,E0  ,30  ,2 
UAFA  "EXPLUSIDN  & HIRE ' , 0 , 1 , 0 . 1 , 1 . 0 . Ob  , 0 . 1 , 0 , 0 , 5 ,3 
UAIA  "EXPLUblUN  & SINKING " , 0 , 0 , 0 . 1 , 1 , 0 . 05 , 0 . 1 , 0 ,20 ,20 ,3 
UAIA  "STRUeiUHAl  PAlLURb ” , 0 , 0 , 0 , 0 , 0 . Ob , 0 , 0 ,20 , 15 .4 
UAIA  "GROUNUING"  ,0,0,0,0,0,0,0,30,30,5 
UA-IA  “CAPSIZING"  ,0,0,0.1,3,0,0,0,30,5,6 
UAIA  "POUNUhRlNG" ,0,0,0,0,0,0,0,30,20,5 
REM  18 

UAfA  /:hem  max.  index 

UAIA  ■ f ANKER" ,845 ,40 ,4 ,33 , 1 ,3b , b . b ,3 ,38  ,70 , 0 .2 
UAIA  “GUNrAlNEH" ,7 10 ,40 ,3 ,40 , 1 ,3S , 5 ,3  , 38  , 7 0 , 0 ,3 
UAIA  “LNG" ,800,50,4,33,3 ,3b, b,3,38, 70 .0.25 
DATA  "P1SHBUA1 ",75,5,0,0,1,10.5.3,38,70,0.75 


1414 

141b 

1418 

1430 

1432 

1434 

1436 

1438 

1430 

1432 

1434 

143b 

1438 

1440 

1444 

1445 

1446 
1448 
1450 

1453 

1454 
145b 
1458 
1460 

1463 

1464 


UAIA  “TUG" ,150,10,0,0,1 ,10,5,8,38, / 0.0. 8 

UAIA  "BARGE  CARRIER  (LASH  I"  . /40  ,45 ,2 , 50 , 1 ,25 ,5  .3  ,38  ,70 , 0 .3 

UAIA  “GREAI  LAKES  BULKER “ , / 08 , 33 ,3 , 40  ,2 , 10 .4 ,2 ,42 ,70 , 0 .4 

UAIA  "PERRY" ,150,300,0,33,8,35.5,3,38,70,0.8 

REM  RESCUE  BUAT 

UAIA  7: REM  MAX.  INDEX 

UAIA  "NO.  UP  RESCUE  BUA i S (1  Un  3 >“,1,2 
DATA  "BOAT  CAP.IEXC.  CREW)",  1,50 
UAfA  "NO.  IN  BOAT  CREW",l,ly 
UAfA  "MEAN  TIME  lU  LAUNCH  j,6( 

DATA  "MEAN  I IME  10  PICKUP  <MiN.>-.0,60 
DATA  "SID.  MANEUVER  I IME  (MIN.)", 0,50 
DATA  "MAX.  WAVE  HEIGHT  (PI.) ".0,101 
UAIA  "MAX.  HEEL  ANGLE  (DEG.  )“. 0.80 
REM  CHARACTERISI ICS  PUR  UVENPJb; 

DATA  "(1=YES;  0=NU)",0,1 

DATA  "SHIP  LENGTH" ,20,5000 

UAfA  “POB  SHIP" ,2,5000 

DATA  "NU.  UP  LiPEBUAIS" ,0,300 

UAfA  "CAPACITY  OP  EACH  L '.B  . " , 0 , 100 

DATA  "NO.  UP  L1PERAP7S" ,0,300 

DATA  "CAPACITY  Ur  EACH  L.R.", 0,100 

DATA  "MODE  UP  SIGN.  WAVE  HGTS .- -MID -WINTER" , 0 ,50 

DATA  "MODE  UP  SIGN.  WAVE  HG I S . --MID-SUMMER ",  0 ,50 

UAIA  "MEAN  WATER  7 EMP . - -MID -WINTER " ,20 , 100 

DATA  "MEAN  WATER  TEMP  . --MID-SUMMER"  ,20  , iOO 


1466  UAIA 
1468  UAIA 
1470  DATA 
14/3  DATA 
14/4  DATA 
14/6  UAIA 
14/8  DAI  A 
1480  DATA 


•PRUB.  RESCUE  VESSEL  NEARBY", 0,1 

"MEAN  PRACIlUN  UP  PUB  KILLED", 0.1 

"MEAN  NU.  UP  POB  KNUCKED  OVERBOARD ",  0 , 1000 

"MEAN  PRACriUN  UF  POB  ISULATEU" , 0 , 1 

-MEAN  PRACIION  UP  I.IPEBUAIS  DESTROYED"  ,0 . 1 

"MEAN  LENGIH  OF  DAMAGE  ",  0 ,200 

"MEAN  HEEL  ANGLE ",0,180 

"MEAN  TIME  PUR  CASUALTY  TU  DEVEl  UP" , 0 ,480 
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104b  HEM 

1048  GUbUb  9000 

lObO  PRINT  "SHIP"', " "'.10$ 

loba  PUR  i-ze  TO  My 

10b4  PHlNr  1+Cl;i9$(l+1) 

lObb  NEXT  1 

lObB  INPUT  'NUMBEH",Ny 

lObO  Ny=INl (N9-tl) 

iOba  IP  N9<za  fHEN  lObb 

lOb'J  IP  Ny>ri9IHEN  lObb 

H>b4  PHINI  “WANI  blANUARU  SHIP" I 

lObb  ib=ZE:Jl»Mb+tl tGOSUb  IbEO 

lObb  IP  01(ZS^1)»CI  THEN  108b 

lo/o  IP  bi(za-n><>ia  then  iob4 

lo/d  ib=za:Ki=za 

1.^/4  PUN  Jl«Mb+t2  ID  M8  + ia 

10Tb  PHINI  :PHiNr  “ (STD.  " ;Mb$ ( ji+1 ) ; " =“  ;T9(N9+i,ki+1)  ; " ) " ; 

10Tb  cusub  ibao 

lObO  ly(N9^1,Kl+l)=Dl(Kl+l) 
lOba  KisKi+ci 
1084  NEXI  J1 

lObb  Nb(za+i)=Ty(Ny+i,ci*i) 
lObb  Nb(i4>»i9<Ny+i,ca+i) 

1090  Nb(lb)»(9(Ny+l,L4+l> 
loya  Nb(ib)=Ty<N9+i ,cb+i) 

1094  Nb<17)  = iy(Ny-H,fa) 

109b  Vl(ta  + l)=C'T*(T9(Ny  + l,C3+l)t(ClTCb)  ) 

1098  P1(C4  + 1)*T9(N9  + 1,H) 

1100  RETURN 


Iloa  HEM 
1104  ib>za 
110b  UUSUb  9000 

IXOb  PHINI  “RESCUE  bUAT";"  ";Z0$ 

1110  PUR  Jl=ze  1U  M8 
Ilia  Gusub  ibao 

1114  NEXT  J1 

111b  REM  RESCUE  bUAT  LENGIH. 

1118  V1(C3*1)*CV*( (Dl(Cl+l)+Ul(Ca+l) >t(Cl/C3) ) 
iiao  Nb(ia)=ui(za+i) 
liaa  REM  PREPARE  PUR  P8 . 
llfcA  Vl(C4+l)=Cl/l9(N9+l,Za+l) 

lllJb  Vl(b)*C5*(I9(N9  + l,Ca  + l)*Gl(Ca  + l)  + V1(C3  + 1 )*N5(12)  ) 
lltb  Nb(C4+l)=Dl(Ce+l> 

1130  Tb(C8  + l)=Dl(Cb  + l ) 
lisa  RETURN 


IbaO  REM 

ibaa  PHINI  :prini  " •,Mb$(Ji+i ) ■, 
lba4  INPUT  DKlb  + l) 

Ibab  IP  Dl<Ib+l)<Mb(Jl+l)  THEN  IbaailP  U1(I5+1)>M4(J1+1)THEN  1622 
Ibab  lb=15+Cl 
IbSO  WE  TURN 
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! 


i 


r 

ii;d4  KfcM 

lldb  bUbUb  UOOO 

lldd  HKiNI  “lYPk  Ul  CASUAL  I Y“ 

H40  kuk  i^ld  lU  nj 

1142  PH  INI  1+Li;(.0»(  1*1) 

1144  NtXI  i 

114fa  INHUI  •NUMbkK-.fO 
114H  I 0=iNI ( I 0-L 1 > 
llbO  Ih  I0<22  rntN  114b 
llbl  IP  IO>M3IHkN  1146 
1162  KkM 

1164  PHINT  "WAN  I b I ANDAKU  CAbUALIY'". 

1166  L1=16:K1=C2 
116a  Ji=Ma+ti:0USUb  i620:l6=Ll 
1160  IP  01(16+1)=C1  IHkN  ll/d 
1162  IP  Uia6  + 1)<  '22  IHEN  1162 
1164  PUN  Jl=Mb+13  lU  Ml 

1166  HrtiNi  :hhini  ■ (Slu.  " ;Mb» ( j 1 +1 ) : " ="  ;C0<T0  + i ,K1+1) ; " ; 

116b  OUSUb  1620:i..0(  I 0 + 1 ,K1  + 1 )=U1  ( Ib-C  1 + 1 ) 

11/0  Kl=Kl+Ll:NkXr  J1 
11/2  Pl(C3  + l)-tO' fO  + 1 ,22  + 1) 

11/4  P1(6)=C0( Iu+1,L1+1) 

11/6  IP  io>22iHkN  ii/fa:i;uiu  11/H 
11/6  IP  IO<L3IHkN  11//:G010  ll/d 
11//  Pi(C4+i)-.3a 
11/b  NJ=CO< I 0+1 ,Cb‘  I ) 

liao  INHU)  "NuribkH  op  Simula i ions"  ,kh  22  + 1 ) :REM  

11H2  Xl(2c+1)=XNI <XL. 22+l)-Ll) 

llb4  IP  Xl<22  + 1)<.22  iHtN  llbO 

llbb  PUH  1=22  lU  10 

llbb  Yl(i+l,2c+l)=/2 

1160  Yl(  i + i ,L  1 + 1 )=t<b 

1162  Yl<  1 + 1 ,L2  + 1 ) = -bb 

1164  NtX(  1 

1166  Y1(C1+1,22+1 )=-L1 
116b  KtfUKN 
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lb/4  Htri  StCIlON  A *#*#♦**»*«*** 
ib/b  Lc!=zy:L=ze 

Ib/H  UN  N3  Guru  Ibao, 1690, 1/14, 1/34, 180b. 17B0 

IbbO  Hbri  CASUAL  iV  = HIRk 

Ibbt  Nb(C3+l)»Z3 

1684  Nb(C8+l)=Z3 

1686  Nb(Cl«’l)=Z8 

1688  001 U 17/4 

1690  8tM  CASUAL  I Y = COLLISIUN 

1698  Kl(Z8*l)-CO(IO+l,C3+l>:OaSUB  8£b8 

1694  Nb(Cl*l)“lNr<HbtCb> 

1696  Nb(C8+l>=Z8 

1698  HHZ8+i)=cono+i,ca»i):cusub  edsa 

1700  Nb(C3*l)»lNI (Nb(Z8+l)»K6+Cb) 

1/08  HHZ8*l>=COaO  + l,C6  + l):OUSU8  28b8 
1704  Ki(Cb*l)=Vl(C4+l)*(Vl(6)+Hb) 

1/06  ir  HNU(Cl)<.=Pl(C8*l)THtN  170a:OUTO  1710 
1/08  Ld-Cl 

1/10  Ik  HNU(C1)':=H1<C3  + 1)THEN  1 / 74 
1/18  OUlU  1768 

1/14  HfcM  CASUALTY  = EXPLOSION 

1/16  Kl(Z8+l)=CO(IO+l,Cd+l):GOSUb  8868 

1/18  Nb<Cl+l)=iNr<H6+Cb) 

1/80  K1(Z8*1)=COUO  + 1,6>:OOSUB  88bB 
1/88  L8  = iNT(Kbi»(Nb(18)+N5<14)  )+Cb) 

1/84  L=Kb 

1/86  Hi(Z8+l)=C0( rO+1 ,C4+1) :GUSUb  8868 
1788  Nb(CS+l)=lNr (Nb(Z8+l)*Hfa+Cb) 

1/89  Kl(Z8+l)=CO(rO+l,Ce+l) :GUSUB  8868 
1730  Nb(C3+l>=lNI (Nb(Z8+l)*Kb+Cb) 

1/31  IE  KNU<C1><=P1(6>(HEN  1//4 
1/38  GOfU  1768 

1734  HEM  UASUALIY  = STRUCfUKAL  EAILUKE 
1/36  Hl(/8-t'l)=C0(  fO  + l,C4  + l)  :OUSUB  8868 
1/38  Nb(C8-rl)=lNr  (Nb(Z8  + l)*R6+Cb) 

1/40  Nb(C3+l)=Ze 
1/48  0U1U  1/64 

1/44  HEM  CASUALTY  = ORUUNDING 
1/46  Nb(C8+l)=Z8:Nb(C3+l)=Z8 
1748  GUIU  1764 
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i/bO  RLM  CASUALTY  = CARS 1 ZING 
l/!»ci  Kl(Ze41)»CO(TO  + 1.4);GUSUb  dSi>8 
i lZb4  NS(C1*1)»INT(H6+Cb) 

' 17bb  Nb(ca+i)»ze 

; *zsa  Ki<Zei*i)=co( ro+i,ce+i) :GUbUb  sebs 

1 1760  NS<C3*l)«lNT(N5(Zb+l)*H6+Cb) 

i/bd  GOTO  1768 
1P64  Nb<C14l)>ZS 

1/66  KEH  FLOUDiNO  *«♦*««•«****♦*** 

1768  R1(Z8«1)«C0( rO«l,C7^1) :COSUB  8858 

1//0  I7»R6  , 

17/8  Guru  1788 

1//4  RtM  FIRE  ************** 

17/6  H1(Z8»1)»C0(Z8*1,6):G0SUB  8858 
1//8  L«L*R6 

1780  L8*=INT  (L8+R6*  <N5  ( 18 ) +N5  ( 14  ) -L8 ) +05 ) 

1/88  Hl(Z8*l>»CO(Z8*l,Ce+l):GOSUB  8858 
1784  N5(C3*l)=Nb(C3+l)+lNT(Nb(Z8+l)*R6+C5) 

1/85  Rl(Z8*l)=CO(Ze+l,C4+l):GObUB  8aS8:N5(C8+l)=N5(Ca+l)+INT(N5(Z8-H)*R6+C5) 

1786  r/»za 

1/88  L«C1-L 

1/80  N5(ll)«Nb(Cl+l)+Nb(Ca+l) 

1/88  saze 

1794  X1(C1+1)=N5(11) 

1/86  J3«Z8:Z1=X1(C1+1) :GOSUB  1668 
1798  PRINT  Nb(ll); 

1800  GUTO  1818 
IHOa  b9alb 
1804  RETURN 

1106  REM  GROUNDING  OK  FOUNDERING  *******«*« 

1W08  PRINT  C0*(C6+1);“  UR  ";C0$(C8+1) 

1810  SELECT  PRINT  815 ( 160 ) .'PRIN I : PRINT  :PRINT  TAB(C9);"N0  SIMULATIONS  POSSIBLE" 
11118  PRINT  "RESULTS  IN  NOBODY  IN  THE  WATER." 

Iil4  SELECT  PRINI  005 <80 ) :E9=-lb 
lgi6  RETURN 


1818  REM  SEASON. 

1880  R1(C1^1)=Z8 
1888  Rl(C8tl)=Cl 
11184  GOSUB  8888 
lies  REM  WAVE  HEIGH) 

1888  Rl(Z8*l)=r8(N8+l,C6*l)*U9+r9(N8+l,C7+l)*<Cl-U9) 

UUO  GUSUB  8884 

1S38  Vl(Cl-»l>aR9 

18:i4  HEM  WATER  TEMPERATURE 

1836  Hl(Z8+l)aT9(N8*l,C8^1)*U9+r8(N9+l,C9+l)*(Cl-U9) 

183b  Rl<Cl«l)a88 

1840  Rl(C8'fl)al00 

1848  Kl(C3«l)alO 

1844  GOSUB  8818 

1846  Vl(Z8«l)aR6 

1848  HEM  SEA  STATE  FUNCTION,  F(SS> 

18b0  V1<C6+1)=C1+V1(C1^1)/D1(C6+1) 

1866  HEM  VISIBILITY  FUNCTION 

Ui!*4  Rl(Z8^1)ab:G0SUB  8884 

1M6  Vl(C7  + l)=Vi<C6^1>*.Cl+EXP(b-30*H9) ) 

ISSa  RETURN 
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IHbO  RtM  SECdUN  B *****#*»♦##«####■*• 

lUbi2  Nb(aO)>ZH:  REM  NRBD 

iBb4  Nb(El)>ZE:  REM  NRBL 

i866  FUR  Jl«ZeTO  N5(ie)-Cl 

l«b8  H-(Lei-NS<eO)  »/(Nb<14>tN5<ld)-Jl) 

18/0  IF  RND(C1)>-P1HEN  1878 
18 Zd  N5(d0)»Nb(S0)>Cl 
1874  yi(C3*l,ze+l)*Yl<C3*i,Z£+l)*Cl 
187b  GOTO  1888 

1878  CUSUB  dOadiREM  R.B.  LAUNCH  PROBABILITY 
1880  IF  RND(C1)>PIHEN  188b 
188d  Nb(dl)-Nb<dl>tCl 
1884  GOfU  1888 

188b  Yl<6,2d+l)=Yl(6,Zd*l>+Cl 
1888  NEXT  J1 

1880  IF  Nb(dl)<-ZdrHEN  19bb 

lB9d  Nb(6)=NS(Zd+l)-NS(Cl*l)-Nb(Ca+l)-Nb(C3*l)-N5(C4+l)*N5(El) 
1884  Nb(13)=«Nb(dl)*Dl<tl*l) 

188b  Tb(C7+l)=Dl(C4*l)/N5<dl) 

1888  7b(Ll+l)=C5*Ul(C4*l)*<Ll-Cl/Nb(ai) ) 

1800  N5<18)=NS(14)-Ld*N5(dO) 

19 Od  Nb(19)*iNHL*N5<lb)*Cb) 

1804  ja=lNT(Cb*Nb(18)+Cb) 

190b  J4»N5(18)-Jd 

1808  GOSUB  197b :KEM  HIGH  SIDE  LAUNCH  PROBABILITY 
1810  Jd-lNT(JE*P*Cb> 

18 Id  GOSUB  a004;REM  LOW  SIDE  LAUMCH  PROBABULTY 
1814  J4»INT<J4»P+Cb) 

181b  Nb(C6+l)»NbUb)*(J2*’J4) 

1B18  GOSUB  d01b:REM  LIFERAFI  LAUNCH  PROBABILITY 
I9d0  NS (C7  + 1 ) »NS  < 17  »♦ INF  <Nb  < 18 )«P+CS  > 

ISdd  Nl»Nb<b)-Nb(CS+l)-N5<C,'  + l) 

»d4  IF  N1>Z2THEN  1934 
ltdb  NS(C8«1)==-N1 
itd8  NS(C9'M)>Zd 
1130  S>Z2 
193d  GOTO  1940 

1934  REM  K1  ♦ HE  CREWMEN  ABANDON  SHIP  IN  L.B.  Bt  L.R.  ? 

193b  NS(C8^1>»Z2 
1938  Nb<C9+l)=Nl 

1940  IF  Nb(C'9+l)>NS(13)THEN  19b8 
194d  S»N5<C9*1) 

1944  Hl(Zd*l)«CO(TO+l,C8+l):COSUB  EES8 
194b  rb(Zd+l)»R6 

1948  Hl(Zd^l)>01<C3-»l>:C0SUB  ddbS 
19b0  fS(CdFl)-Rb 
191d  Rl(ZdFl)sCl:COSUB  2dS8 
1994  lb(Cd+l)«r5<CE-H)+Rb 
Itbb  RETURN 

1M8  REM  N MEN  LObF.  POINT  Z #*##*****■* 
mo  J1»C7:Z1=N5(11)+NS(C9*1)-NS(13) 
md  GOSUB  Ibbb 
1994  GOTO  19 7d 

199b  REM  N MEN  LOST.  POINT  X 
1998  J1«C3:Z1=N5<11)  ‘ 

19/0  GOSUB  IbbO 
19/d  E8-lb 
19/4  RETURN 


isre  REir  phubaeiutv  of  high  side  launch 

19/8  H»(30-T7)/l& 

1980  G0SU8  1994 
I 1982  H1(C9*1)»P 

1984  P»Cl-Vl(Cl+l)/40 
1986  CObUB  1994 
1988  P1(11)=«H 
1990  P»P1(C9*1)*P1(11) 

1992  NklUHN 

1994  IF  P<22THtN  1996:GOTU  1998 
1996  P»r2 

1998  IF  P>C1THEN  2000:GUTO  2002 
8000  P>C1 
8002  RETURN 

8004  REM  PRObAbILlTY  OF  LUW  SIDE  LAUNCH  *♦♦*♦**♦** 
8006  P=(40-T7)/25 
8008  G0SU8  1994 
1010  P1(12)=P 
8012  P»P»P1(11) 

8014  RETURN 

8016  HEM  PROBABILITY  OF  LIFERAFT  LAUNCH  ***#»»»*# 
8018  P«PH11> 

8020  RE t URN 

8022  REM  PROBABILITY  UF  R.B.  LAUNCH  ********** 

8024  P«itl-Cb*(Vl(Cl  + l)/Dl(C6+l) ) 

8026  CObUB  1994 
8028  P1(13)=P 

8030  IF  RND<Cl)>CbTHEN  2036 
8032  Pa(40-r7)/(40-Dl(C7  + l) ) 

8034  GUTU  2038 
8036  P=(30-T/)/(30-Dl(C7+l)) 

8038  GUSUB  1994 
8040  P»P1(13)*P 
8042  RETURN 


1696  REM 

Ub8  Y1  ( J1  *1,  Z2  + 1)«Y1(J  1 + 1, 72  + 1 )+Cl 
1660  J3*J1+C1 

U62  Y1(J3+1,/2+1)=Y1(J3+1,Z2+1)+Z1 

1664  IF  /1<Y1(J3+1,C1+1)THEN  1666:G0T0  1668 

1666  Y1(J3+1,C1+1)»Z1 

1668  IF  Z1>Y1(J3+1,C2+1)THEN  l6/0:GQrO  1672 
16?0  Y1(J3+1,C2+1)=Z1 
16/2  HE (URN 


ii044  REM  bECriON  C *********************** 

1^046  W^W+Cl 

a04tf  FUH  i=NS(ll)TO  CISTEP  -Cl 
aObO  COSUK  E164  :KEM  AUD  UkLIA  KHU) 

ciose  oosufci  c!e4a  :hem  T(hyp) 

e!0b4  IK  l<=IdlHEN  S0b6:(;UIU  HObti 
dObb  RE  TURN 

aoba  Hi(ie+i>-Nb(ci+i)/i 

EObO  R>RNU(C1> 

EOba  IK  R^KKia+l)  (HEN  ao/4 

aObA  REM  MAN  KNUCKEU  INIU  WAIER  (N(K)) 

aobb  H«P1<14) 

dOba  rb(C6+i)=T5(za-n)+Tb(ci+i)+rb(ca+i)*vi(C6+i) 
dO/O  Nb(Cl+l)=N5(Cl*l)-Cl 
dO/d  GUlU  d08d 

d074  REM  MAN  ISOLATED  AND  JUMPED  INTO  WATER  (N(CRI)) 
d07b  P=Pl<lb) 

dO/8  [b(Cfa+l)=Cb«(Tb<Zd+l)+Tb(Ca-H)*Vl(C6+l) )+T5<Cl+l) 

doao  Nb(cd+i)=N5<C2+i)-ci 

d08d  REM  COMPLETE  PICK-UP 

d084  GUSUB  dd/OrREM  r<S)  DUE  TO  FLOTATION 

doab  l9=lb(C3+l> 

doaa  IK  R9<iyrHEN  ao90:GOTo  eo9d 

E090  T9=R9 

d09d  IF  r9>lb(C6+l)THEN  E096 
d094  GO  10  KlOd 
dU9b  REM  SAVED 

d09b  GUSUB  ddlO'.REM  SAVED  STATISTICS 
dlOO  S-S+1 

diOd  IK  Nb(13>>b1HEN  dlbO 

dl04  REM  MANEUVER  R.B.TQ  L.B. 

dlOb  REM  GET  TIME  KOH  STANDARD  MANE  TVER 

dlOa  Rl(Zd+l)=lb(C8+l) 

dllO  GUSUB  ddsa 

dlld  Tb(Cl+I)=r5(CI+l)+Rb*Vl(Cb+l) 
dll4  REM  GET  TIME  fU  TRANSFER  1 MAN 
dllb  Rl(Zd+l)=T5(C9+l) 
dlia  GOSUB  d'dba 

dldO  IF  RNU(Cl)<=Pl(C4+l)rHEN  214E 

EldE  IF  S<=Nb(CB+l)THEN  E14d 

dld4  REM  TRANSFER  EXC  CREWMEN  TO  L.B. 

dldb  Tb(Cl+l)=Tb<Cl+l)+N5(C8+l)*Rb«Vl<Cfa+l) 

dlE8  S=S-Nb<C8+I) 

2130  Nb(C8+l)=0 

dl3d  IF  S<Nb(13>rHEN  ElbO 

dl34  REM  N MEN  LUST  POINT  11 

di3b  J1*C9:Z1=I-C1 

2138  COSUB  Ibbb 

dl40  GOTO  dlSd 

dl42  REM  TRANSFER  S CREWMEN  TO  L.B. 

2144  T5(C1+1)=T5(C1+1)+S*R6*V1(C6+1) 
dl4b  N5(C8+1)=N5<C8+1)-S 
2148  S>0 
dibO  NEXT  I 

21bd  X1<C3+1)=X1<CE+1)/X1(C1+1) 

21b4  IK  X1(C1+1)=Z2  IHEN  21b6:G0T0  2160 
21bb  IF  Xl<CE+l)=ZdrHEN  Elb8:G0T0  E160 
Elba  X1(C3+1)=C1 

ElbO  GOSUB  dlT4:REM  UPDATE  SAVED  STATISTICS 
ElbE  RETURN 
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e:ib4  Hhn  Auu  ririfc  lu  pick  up  UNt  han  phom  water  ******* 

dlbfa  Hl(/d+l)=lb(8) 

dlb«  GUbUb  8288 :KtM  PHANK  NICKELS'  NUKMAL  DIST. 

21/0  lb(Cl+l)=lb(Cl+l)+Kb*Vl(C7+l) 

21/2  HhrUKN 

21/4  KEH  UPUAFE  CUMULAl  IVE  'SAVED'  SlAI'lSTICS  ******** 
21 /b  IP  yi(L:l  + l,Z2  + l)>  = Z2fHEN  2182 
21/8  PUK  jy=ClTU  C2 

2180  j=ja+ci 

2182  Yl(ja+l,Z2+l)=Xl(J+l) 

2184  YlUa  + l,Cl  + l)=Xl(J  + l) 

218b  Yl<Ja+l,C2+l)=Xl(J+l) 

2188  NEXI  J3 
2180  KEIUKN 
2182  PUR  J3=C1TQ  C2 
2184  J=J3+C1 

218b  Yl(J3+l,Z2+l)=Yl(ja+l,Z2+l)+Xl(J+l) 

2188  IP  X1<J+1)<Y1<J3+1,C1+1)TH£N  2200:GOTO  2202 
2200  Yl(Ja+l,Cl+l)=Xl(J+l) 

2202  IP  X1(J+1J>Y1(J3+1,C2+1)THEN  2£04:GOTO  2206 
2204  Y1(J3+1,C2+1)=X1(J+1) 

220b  NEXT  J3 
2208  RE  TURN 

2210  REM  GATHER  SAVED  STATISTICS,  ********* 

2212  X1(C2+1)=X1(CE+1)+CI 
221b  RE  I URN 
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HEM  NUKMAL  UiSTRiBUTlON 
aato  R0«KNb(Cl) 

ddem  If-  H0=i'drHEN  ESci4:G0iu  dcid<Q 
eieieJ4  R0»Li) 
dddb  Ha=RNU<Cl) 

dddd  V =SQf<  ( -CeJ^LOG  ( H 0 ) ) *CUS  ( P ^ * K3  ) 
dddO  Rb»V*Hl(4)+Rl(Ze*l) 
dddd  IF  Rt.<Rl(Cl*I)rHEN  etf34:G01U  Sd36 
dd'J^  R6=R1(C1*1) 

ddJf}  IF  R&>R1(CE^1)THEN  EESB.’COlO  3d40 
dd38  RE-Rl(CB«i) 

(£240  RE  I URN 

2242  REfl  SURVIVAL  riME  (HYPOTHERMIA)  *««****»♦*»* 
2244  R1<C1+1)=Z0*(V1(22+1)*<S1*S2«V1(Z2+1)FC2)-S3> 
2246  HI (C2  + I ) =Z0*  < VI ( Z2  + 1 )* ( (S4*V1 ( Z2  + 1 ) +02 ) -S5 ) +S6 ) 
2248  R1 ( Z2+1 ) =C5* (R1 (Cl+i ) +81 (C2+1 ) ) 

22b0  Rl(4)=Zb«(Rl(C2+l)-Rl(Cl+I)) 

22b2  C0SU8  2218 
22b4  Tb(4)=R6 
22b6  RE) URN 

22S8  REM  FRANK  NICKELS'  NORMAL  01b I . *#*»♦»«**#» 

£260  R1(C1+1)«Z2 

£262  R1(C2+1)«C2*R1(Z2+1) 

£264  Rl(C3+l)aLb*Rl(Z2+l) 

2266  GUSUb  2218 
£268  RETURN 

£270  REM  COMPUTE  r<b>  DUE  TO  FLOTATION >*»******■*« 
£2/2  IF  RND(1)<«PTHEN  2280 

£274  REM  MAN  NUT  WEARING  PFD  

£276  Kl(Z8+l)*Tb(6) 

£278  GOTO  2284 

£280  REM  MAN  WEARING  PFO  

£282  Rl(Z2*l)=rS(C4+l) 

£284  GOSUB  2294  ZREM  RAYLEIGH  DIST. 

2286  RETURN 

£288  REM  UNIFORM  UISTRIbUTION  *****♦**#*#### 

£290  U9=H1(C1+1)+(R1(C2+1)-R1(C1+1) )*RND(C1) 

£292  RETURN 

£294  REM  RAYLEIGH  DISTRIBUTIUN  **♦*######*»» 

£296  R0>RND(C1) 

£298  IF  R0=Z2THEN  2300 '.GO TO  2302 
£300  ROeLb 

8302  R9*R1(Z2*1)*S(JR(-C2»LOG(RO) ) 

2304  RETURN 


ueoo  Kfcn 

UiOci  bB.ECr  HHINV  eilbClbO) 

U«04  PHlNf 

UiVb  PRINT  TAB(31>;A11> 

litOd  PR  IN  I 

UilO  PHINI  rAB(41); 

Ifilif  PKINI  *BIf1ULAT10N  SERIAL  NUMBER  AS‘;S9:PRINT  :PRINT  TAB (C 9 ) ;T94 (N9  + 1 ) :S8  = 14 
Uil3  PHiNf  }AB(S8);"LbP  =“ ; 19 (N9+1 , 2B+1 ) ; ’ FEET’ 

1814  PRINT  TAB<SB);’POB  =" ;T9 (N9+i ,t 1+1 ) 

181b  PRINT  rAB<S8)  ;T9(N9  + l,Ce+I> - " ;T9(N9  + 1 ,C3  + 1)  *,  ’MAN  LlFEEiOATS’ 

181b  PRINI  1AB(S8);T9<N9  + 1,C4  + I);’  - ’ ; I 9 (N9  + 1 ,6 ) ; “ MAN  LIFERAFTS’ 

181 T PRINT  :PR1NT  TAB (C9 )', “NUMBER  OF  RESCUE  BOATS  =’*,01(18+1) 

1880  I1Y*-’MEAN  IlME  TO  ’ 

1881  PRINT  TAB (C9 ); “RESCUE  BOAT  CAPACITY  =“; 

1^88  PRINT  D1(C1+1);’+“;D1(C8+1);“MAN  CREW  (EACH  B0AT)“:PR1NT 

1883  PRINT  TAB(S8)  •,MT*;“  LAUNCH  RESCUE  BOAT  ="; 

1884  PRINT  D1(C3+1) J’MINUIES’ 

IMBb  PRINT  rAB(S8);M7$;"  PERFORM  SIANUAHD  MANEUVER  =’ *, 

1886  PRINT  01 (6), -’MIN," 

188T  PRINT  rAB(S8) ;M7*;“  PICK  UP  UNE  MAN  FROM  WATER  =“; 

188B  PRINT  01(C4+1) ; “MIN. ’ 

1889  PRINT  rAB(Sa>;“RArEO  HEEL  ANGLE  OF  RESCUE  BOAT  OAVITS  =“; 

1880  PRINT  D1(CV41);’I>EGS." 

1831  PRINT  TAB  (Sa );  “RATED  SEA  STATE  CAPABILITY  ="  *, 

1838  PRINT  01(Cb+l);“FT .SIGN,  WAVE  HGT . “ 

1834  PRINT 

183b  PRINT  TAB(C9)  ;C0*(T0  + 1)  .'PRINT  rPRINT  TAB(S8);’0N  AVG.: 

183b  P3=100:ST=S8+C9 

183B  PRINT  P3*C0(T0  + l,ca  + l)  *. 

U940  PRINT  “X  OF  CREW  KILLED  BY  CASUALlY“ 

1841  PRINT  TAB(S7  ) *,00(10  + 1 ,C3  + 1) ; 

1848  PRINT  "CREWMAN  KNOCKED  OVERBOARD- 

1843  PRINT  TAB(S7) ;P3*C0(T0  + 1,C4  + 1) ; 

1844  PRINT  “X  OF  CREW  ISOLATED  FROM  LIFEBOATS" 

184b  PRINI  TAB(b7)  ;P3*C0(T0  + l,fa) ; 

184b  PRINT  “X  OF  LIFEBOATS  DAMAGED" 

1847  PRINT  7AB(S7) ;C0(T 0 + l,C8  + l)  ; 

1848  PRINT  “MIN.  FROM  BEGINNING  UF  CASUALTY" 

1849  PRINT  TAB(S7+4); 

18&0  PRINT  “TU  BEGINNING  OF  ABANDON  SHIP." 

1888  IF  T0<C17HEN  leSbTlF  TOC2THEN  1256 
18!>3  PRINT  rAB(S7)  ;C0(T0  + l,Cb  + l) ; 

18S4  PRINT  ’ FT.  LENGTH  OF  COLLISION  DAMAGE" 

18»«  IF  T0<C2  THEN  1260 : IF  T0=C3  THEN  1260 
1862  PRINT  TAB(S7)*,C0(T0  + 1,C7  + 1) ; 

18ba  PRINT  ’ DEGREES  HEEL  ANGLE" 

18b0  PRINT  :PR1NT 

1841  PRINT  TAB (C9  J ; “RESULTS  UF  “ ;X1  ( Z2  + 1 ) +C1  *, " SIMULATIONS:  " 

1848  SELECT  PRINT  005(30) 

1844  RETURN 
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Icibb  RtM 

Ufb8  SELkCr  HRIN)  ElS(lbO) 
iidb^  N-Xl(Z2*l)tCl 
12/0  HKINI 

12/1  if-'  Yl<Ze4l,ZE  + l)=ZH  THEN  lE/BlGUVU  1873 
12/e  v»-ci:goto  ie/4 

ie/3  v»Yi(Ci+i,Z2+i)/Yi(ze-n,ze+i) :v=iNr <iooo<»G+c5)/iooo 

12/4  Tl«3S;Te»Tl->Cb:T3=l8*C8;r4=134C8:PKlNT  TAB  <S8);  “OVERALL  FRACTION  OF' 

12/b  PRINT  TAB  (re) -,“***•**»*’ 

12//  PRINT  TAB(Sa) ;*MbN  IN  WATER  RESCUED" T TAB (TE ) ; 

1220  IP  V<Ze  THEN  leui  :OUTO  lEBE 

1221  PRINT  •*  '.TAbT  lE+C/)  :CU1U  1S83 
122E  PRINT  '♦"•,v;rAB(re*C7);*»" 

1223  PRINT  lAB(Sa);‘bY  RESCUE  BOAT  ;TAEl < TE ) ; 

1224  PRINT  rAB(TB);"**»*»»**“:PRINT 

1225  PRINTUSING  1SB6:  PR  INFUSING  1E8'?:M=N 

122b  X NO.  MEAN  MIN. 

1227  X TIMES 

1228  FOR  I>Ze  TO  CE 
1230  PRINT 

1232  READ  A* 

1234  IF  M=Ze  THEN  1300 

1236  IF  Y1(I+1,ZE+1)<ZS  THEN  ie97:G0T0  1E98 

1237  Yl(l*l,Ze+l)=ZE 

1238  Q1=0:S=T2:U1»Y1(I+1,ZE+1)/M 
1300  ue»o:s=T3:Q2=Yi(i+i,ci-H) 

130e  tt3*0;S»T4:Q3=Yl(I+l,C2+l> 

1303  PRINTUSING  130b ,A» ,M ,01 ,QE ,G3 

1304  M^W 

130b  X »»«##««##»«###  ««###  »*««.«#  «««.## 

130b  NEXT  1 
1308  PRINT 

1310  FOR  1=C4  TO  10  STEP  CE 

1311  Cl4  = 0:Qb  = 0:Q6=0:Q7  = 0 

1312  PRINT  :r£AD  A*: IF  KCSTHEN  1313 

1313  GOSUB  9010 .-READ  A4:1F  1=CSTHEN  1319:G0SUB  9010 

1314  READ  A$ 

1319  U4=Y1(I-C1+1,ZE+1) 

13E0  IF  I=C4THEN  1321: IF  I=CbrHEN  13Ei:G0T0  ISEE 
13E1  GOSUB  90SO:GOTU  1330 

I3es  IF  Yl<l-Cl+I,ze*l><-ZE  then  13E3:G0T0  13E4 

1383  Ob ^>0 '.GOTO  13E6 

1384  S=Te:Ob=Yl<i+l.Z8+l>/Yl(l-Cl+l,Ze+l) 

138b  S=T3:06=YH1  + 1,C1>1) 

1388  S=I4;Q/=Y1(1+1,C£+1) 

1389  GUSUB  9080 

1330  NEXT  1 .’PRINT  HEX <00 
1338  SELECT  PRINT  00b <80 ) IHETURN 


14Bc!  HfcM  PKiNI  VARIABLES. 
i484  UAfA  “NU.  IN  WAIEK,  N“ 

148b  DAI  A "NU.  RESCUED  BY  BUAI  , NS“ 

1488  DAIA  "RAflO  NS/N“ 

1480  DATA  “RESCUE  BUAI  DAMAGED* 

1498  DATA  “R.B.  LAUNCH  RAILED" 

1494  DATA  **NRBRB,  ALL  BOATS  FILLED  TO* 
149b  DATA  *CAPAC1TY  BEFORE  LAUNCH* 

1498  DATA  "*NHbRb,  RESCUE  BOAT  & ALL* 
IbOO  DATA  “BOATS  & RAFTS  IN  WATER* 

1S08  DATA  “FILLED  TO  CAPACITY" 


9000  bELECI  PRINT  00b (80 ) :PRINT  HEX ( 03) : RETURN 

9010  PRINTUSING  9011  ,A*  :RE]URN 

9011  Z 

9080  GUSUb  9090:GUSUe  9040:PKINrUSING  9 0ai,A$,Q4,Q5$,Q6$,Q7»: RETURN 

9081  Z 

9030  lONVEHT  0410  04S ,(#####) ICONVERT  QbTO  Q5$, (#####) 

9031  CONVERT  Ob  I U Ufa* , ) :CONVERT  Q7T0  Q7* ,(#####) I RETURN 

9040  IF  Qb*0THEN  9041: RETURN 

9041  ub*»*  *:ufa*=*  *:07*=*  * .-return 
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Appendix  B;  Annotated  List  ol  Variables  and  Arrays  In  Abandon 
Ship  Simulation 


r ema  1 n 

un  I h a n ged 

throughout  simulation 

A1  $ 

= 

String  " 

ABANDON  SHIP  SIMULATION 

B5 

= 

999 

/.O 

= 

60 

7.0$ 

= 

String  " 

CHARACTERISTICS" 

Z5 

= 

0.25 

TO 

= 

Casualty 

Number  - 1 

Cl 

= 

1 

C2 

= 

2 

C3 

= 

3 

C4 

S 

4 

C5 

= 

0.5 

C6 

= 

6 

C7 

3 

7 

C8 

= 

8 

C9 

= 

9 

L5 

= 

9. 5E-39 

M = Integer  part  of  S9 

= Temporary  variable  in  Output  Program 
Ml  = 27 


M9  = 7 

M9  = 7 

M7$  = String  "MEAN  TIME  TO 

N = Number  of  simulations 

N3  = Primary  Casualty  Number 
= C0(T0+1,  10) 

N9  = Ship  Number  - 1 
P3  = 100 
PO  = Ti  = 3.14159 
P7  = 2tt  = 2*PI 

57  =23 

58  =14 

59  = Serial  Number 

SI  = 0.0024 
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S2 

s 

8 . 1 F -6 

S3 

= 

0.  1 

S4 

a 

5.9E-5 

S5 

= 

0.101 

S6 

= 

2.25 

Z2 

3 

0 

2.  Variables  that  change  (simulation  variables) 

= Flag  to  control  simulation 
= 0 for  normal  completion  of  simulation 
= 15  if  rescue  boat  launch(es)  fail(s) 
or  all  boats  filled  before  launch 
= -15  for  no  one  will  get  into  water  for 
all  simulations  of  a run  (grounding 
or  foundering) 

I = General  prupose  index 

T5  = Index  to  array  DD  for  all  characteristics 
J = General  purpose  index 

J2  = Number  of  lifeboats  on  high  side  success- 
fully launched 

= Index  to  array  MM$  for  all  characteristics 
•14  = Number  of  lifeboats  on  low  side  success- 

fully launched 
.T3  = Index  into  array  YY 

F = General  purpose  index 

K1  = Index  to  count  number  of  simulations; 

also  used  as  index  during  override  of 
ship  and  casualty  characteristics 
L = Fraction  of  lifeboats  plus  rescue  boats(s) 
and  liferafts  destroyed;  later  subtracted 
from  one  (1)  to  be  fraction  not  destroyed 
L2  3 Number  of  lifeboats  plus  rescue  boat(s) 
destroyed 

^ = Number  of  people  who  must  abandon  ship 

in  lifeboats,  rescue  boat(s),  or  liferafts 
P = Probability  (various) 
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K 

HO 


K3 

Rfe 

R9 

S 

T7 

T9 

U9 

V 


W 

Z1 


H . i n il  i)n<  im  mhe  r 

K i r s I riindotn  iiiiniher  for  ni)rm;il  distrl- 
l>  lit  inn  and  rand  on  number  for  Rayleigh 
distribution 

Second  random  number  for  normal  distrl- 
liu  t i on 

Random  deviate  from  normal  distribution 
Random  deviate  from  Rayleigh  distribution 
Number  of  people  in  rescue  boat(s) 
(excluding  crew);  also  temporary  variable 
in  Output  Program 
Hoe  1 angle 
Survival  time 

Random  deviate  from  uniform  distribution 
Random  deviate  from  normal  distribution 
with  zero  mean  and  unity  (1)  standard 
deviation;  also  temporary  variable  in 
Output  Program 

Tally  of  number  of  times  rescue  boat(s) 
get(s)  deployed 

Number  of  people  in  water  when  rescue 
boat  fails  to  recover  all  people  in  water 
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Appi-ndix  II  (Co  n't) 


3.  Arrays 
Array  CO 

Note:  CO  has  two  dimensions.  Nine  (9)  rows  (first  dimension) 

and  ten  (10)  columns  (second  dimension).  Each  row 
contains  the  data  for  a casualty  type.  The  identi- 
fication of  the  columns  appears  below. 

Column  Variable  Description 

Number 


1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 


ur\ 

'"C 

>"lo 

>“tc 

NC 


Probability  that  a collision  results 
in  a fire 

Probability  that  an  explosion  results 
in  a fire 

Mean  fraction  of  people  on  board  killed 

Mean  number  of  people  knocked  (or  blown) 
overboard 

Mean  fraction  of  people  on  board  isolated 

Mean  fraction  of  life  boats  destroyed 

Mean  length  of  collision  damage 

Mean  heel  angle 

Mean  time  for  the  casualty  to  develop 

Primary  casualty  type  number  (1-6) 


Array  C0$ 

Note:  co$,  an  array  of  strings,  has  the  text  for  the  nine 

casualty  types. 


Element 

Number 

1 

2 

3 

4 

5 

6 

7 

8 
9 


Contents 


"FIRE" 

"COLLISION  & FIRE" 
"COLLISION  & SINKING" 
"EXPLOSION  & FIRE" 
"EXPLOSION  & SINKING" 
"STRUCTURAL  FAILURE" 
"GROUNDING" 
"CAPSIZING" 
"FOUNDERING" 
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Array  D1 
Note: 


Element 

Number 

1 

2 

3 

4 

5 

6 

7 

8 


This  array  receives  the  replies  to  the  questions; 
however  responses  to  the  ship  type  and  casualty  type 
get  immediately  transfered  to  arrays  TS  and  CC  respec- 
tively. The  responses  to  rescue  boat  overlay  the  first 
nine  elements  of  the  ship  type  responses  (if 
any);  the  responses  to  the  casualty  type  questions 
extend  the  array  from  element  nine  (9),  the  last 
rescue  boat  response,  to  element  sixteen,  the  last 
casualty  type  question  (if  any). 

Variable  Description 


''RB 

^RB 

^RBC 

MTTPU 

^T 

'SM 

^WLIM 


^MAX 


Number  of  rescue  boats 

Capacity  of  rescue  boat  excluding  the 
rescue  boat  crew 

Number  in  rescue  boat  crew 

Mean  time  to  launch  in  minutes  (does  not 
include  time  to  report) 

Mean  time  to  pick  up  one  man  from  water 

Mean  time  to  Derform  a standard  maneuver 


Maximum  significant  wave  height  at  which 
the  rescue  boat  can  safely  launch 

Rated  (maximum)  heel  angle  of  rescue  boat 
davits 


% 
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Arrays  M5$,  M6  , and  M4 

Note:  These  three  arrays  contain  the  text  for  the  questions 

(rescue  boat,  ship,  and  casual ty)  , MM$ , the  minimum 
acceptable  reply,  MN,  and  the  maximum  acceptable 
reply,  MX.  The  text  appears  below;  the  replies  are 
gathered  into  array  DD. 


Element  Applicable  Text 
Number  Variable 


1 

2 

'^RB 

c 

3 

^RB 

'^RBC 

4 

A^tl 

5 

MTTPU 

6 

^Tsm 

7 

^WLIM 

8 

®MAX 

9 

• • . 

10 

• • • 

1 1 

•-s 

12 

N^„ 

13 

CR 

^LB 

14 

c 

15 

^LB 

N 

16 

\r 

C « 

17 

^LR 

^W 

18 

Ofs 

19 

20 

21 

p 

22 

^14 

^CR 

23 

^K 

24 

25 

26 

>“ld 

27 

28 

^TC 

"NO.  OF  RESCUE  BOATS  (1  OR  2)" 

"BOAT  CAP.  (EXC.  CREW)" 

"NO.  IN  BOAT  CREW" 

"MEAN  TIME  TO  LAUNCH  (MIN.  )" 

"MEAN  TIME  TO  PICK  UP" 

"STD.  MANEUVER  TIME  (MIN . ) " 

"MAX.  WAVE  HEIGHT  (FT.)" 

"MAX.  HEEL  ANGLE  (DEG.)" 

"ENDURANCE  TIME  (HRS.)" 

"(1=YES;  0=N0)" 

"SHIP  LENGTH" 

"POB  SHIP" 

"NO.  OF  LIFEBOATS" 

"CAPACITY  OF  EACH  L.B." 

"NO.  OF  LIFERAFTS" 

"CAPACITY  OF  EACH  L.R." 

"MODE  OF  SIGN.  WAVE  HGTS . - - M I D- W I NTER " 
"MODE  OF  SIGN.  WAVE  HGTS . - -MI D-SUMMER" 
"MEAN  WATER  TEMP . - - M I D- W I NTE R " 

"MEAN  WATER  TEMP . - - M I D- SUMME R " 

"PROB.  RESCUE  VESSEL  NEARBY" 

"MEAN  FRACTION  OF  POB  KILLED" 

"MEAN  NO.  OF  POB  KNOCKED  OVERBOARD" 
"MEAN  FRACTION  OF  POB  ISOLATED" 

"MEAN  FRACTION  OF  LIFEBOATS  DESTROYED" 
"MEAN  LENGTH  OF  DAMAGE" 

"MEAN  HEEL  ANGLE" 

"MEAN  TIME  FOR  CASUALTY  TO  DEVELOP" 


I! 


'1 


! J 


I 

{ 
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Array  N5 


El ement 
Number 

Variable 

Desc  ri pti on 

1 

Number  of  people  on  board 

2 

Number  of  people  knocked  (or  blown) 
into  water 

3 

^CRI 

Number  of  people  isolated  from  L.B.  & L 

4 

'^CRT 

Number  of  people  killed 

5 

''*RBC 

Number  in  rescue  boat  crew 

6 

'^AS 

Number  of  people  to  abandon  ship 

7 

Number  of  people  that  can  abandon 
ship  in  life  boats 

8 

«2 

Number  of  people  that  can  abandon 
ship  in  life  rafts. 

9 

EXC 

Excess  capacity  in  L.B,  & L.R. 

10 

J 

Number  of  people  who  attempt  to  abandon 
ship  in  rescue  boat 

11 

N 

Number  of  people  in  water 

12 

^RB 

Number  of  rescue  boats 

13 

^RB 

Capacity  of  rescue  boat 

14 

\b 

Number  of  life  boats  on  ship 

15 

\r 

Number  of  life  rafts  on  ship 

16 

^LB 

Capacity  of  each  life  boat 

17 

^LR 

Capacity  of  each  life  raft 

18 

Number  of  life  boats  available 

19 

Nr 

Number  of  life  rafts  available 

20 

NrBjj 

Number  of  rescue  boats  destroyed 

21 

Nrb, 

Number  of  rescue  boats  launched 
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A 
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Array  PI 

Element 

Variable 

Description 

Number 

1 

Probability  that  a given  man  in  the 
water  was  knocked  (or  blown)  into 
the  water  (as  opposed  to  isolated) 

2 

. . . 

Not  used 

3 

. . . 

Not  used 

4 

'’3 

Probability  that  a collision  results 
in  a fire 

5 

Probability  that  a rescue  ship  is  nearby 

6 

Probability  that  an  explosion  results 
in  a fire 

7 

. . • 

Not  used 

8 

. . • 

Not  used 

9 

^8 

Probability  that  a collision  damages 
a life  boat 

10 

Probability  (due  to  heel  angle  only)  of 
successful!  launch  of  high  side  L.B. 

1 1 

^0 

Probability  (due  to  wave  height  only)  of 
successful!  launch  of  L.B.  or  L.R. 

12 

Probability  (due  to  heel  angle  only)  cf 
successful!  launch  of  low  side  L.B. 

13 

^2 

Probability  (due  to  wave  height  only)  of 
successful!  launch  of  rescue  boat 

14 

^3 

Probability  man  knocked  (or  blown)  into 
water  was  wearing  a PFD 

15 

'’h 

Probability  man  isolated  & jumped  into 
water  was  wearing  a PFD 

RRh-RI 

Array  R1 

1 

u or 

a 

Mean  or  Mode  for  Norma  1 and  Rayleigh  Distributions 

2 

(No 

Name ) 

Minimum  (Normal  and  Uniform  Distributions) 

3 

(No 

Name ) 

Maximum  (Normal  and  Uniform  Distributions) 

4 

a 

Standard  Deviation  for  Norma  1 Distribution 

B-8 
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Array  T9 

Note:  T9  has  two  dimensions.  Eight  (8)  rows  (1^^  dimension) 
and  eleven  (11)  columns  dimension).  Each  row 

contains  the  data  for  a ship  type. 


Col umn 
Number 

Variable 

Description 

1 

Ls 

Ship  length  in  feet 

2 

^CR 

Number  of  people  on  board 

3 

^LB 

Number  of  life  boats  on  ship 

4 

‘^LB 

Capacity  of  each  life  boat 

5 

'^LR 

Number  of  life  rafts  on  ship 

6 

^LB 

Capacity  of  each  life  raft 

7 

Mode  of  significant  wave  hei ghts--mi d-wi nter 

8 

ofS 

Mode  of  significant  wave  heights--mid-summer 

9 

Mean  water  temperature--mi d-wi nter 

10 

W 

Mean  water  temperature--mi d-summer 

11 

P ^ 

^14 

Probability  that  a rescue  vessel  is  nearby 

Array  T9$ 

Note:  T9$  , an  array  of  strings,  has  the  text  for  the  eight 
ship  types. 


I 


El ement 
Number 

1 

2 

3 

4 

5 

6 

7 

8 


Contents 


II 


M 


TANKER" 

CONTAINER" 

LNG" 

FISHBOAT" 

TUG" 

BARGE  CARRIER  (LASH) 
GREAT  LAKES  BULKER" 
FERRY" 


II 


1 
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Array  T5 

Element  Variable  Description 

Number 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


HYP 

^SF 

^SNF 

^IW 

MTTPU 


Time  from  casualty  to  abandon  ship 

Time  from  rescue  boat  launched  to  i^*^ 
crewman  retrieved  from  water 

Time  from  abandon  ship  to  rescue  boat 
1 aunched 

Time  to  die  due  to  hyperthermia 

Mode  of  time  to  drown  with  PFD 

Mode  of  time  to  drown  without  PFD 

Length  of  time  man  is  in  water 

Mean  time  to  pick  up  one  man  with 
rescue  boat 

Mean  time  to  perform  standard  maneuver 

Mean  time  to  transfer  a man  from 

R.B.  to  L.B.,  L.R.,  or  rescue  vessel 


Array  VI 

Element  Variable  Description 

Number 


1 

2 

3 

4 

5 

6 

7 

8 


WT 

Water  temperature 

Wave  height 

^LB 

Computed  length  of 

life  boat 

*-RB 

Computed  length  of 

rescue  boat 

l/S^ 

Reciprocal  of  ship 

1 ength 

Total  length  of  all 

L.B.  & rescue  boats 

•^ss 

Sea  state  function 

(1-  *^w''^WLIM^ 

'"vis 

Visibility  function 

times  sea  state  function 
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Array  XI 

Element 

Number 

1 

2 

3 

4 


Array  Y1 

Note:  Y1  has  two  dimensions.  Eleven  (11)  rows  ( f i r s t d i men s i on ) 

and  three  (3)  columns  (second  dimension).  The  first 

column  (subscript  of  one)  contains  the  running  totals, 

the  second  column  (subscript  of  two)  contains  the 

minimums,  and  the  third  column  (three  subscript) 

contains  the  maximums. 

Row  Variable  Description 

Number 

1 N Number  of  people  in  the  water  (running  sum) 

2 N,.  Number  of  people  rescued  by  the  rescue 

boat  (running  sum) 

Running  sum  of  the  ratio 

Number  of  times  a rescue  boat  was 

damaged  (with  two  rescue  boats  could 
be  incremented  twice  in  a simulation) 

No  entries  in  column  two  or  three 

5 Y Number  of  people  not  rescued  by  rescue  boat 

’ due  to  R.B.  damage  or  launch  failure. 

Not  printed  out 

6 Y Number  of  times  a rescue  boat  launch 

failed  (no  entries  in  column  2 or  3) 

7 ...  Not  used 

8 Z Number  of  times  all  boats  filled  before 

launch  (no  entries  in  columns  2 or  3) 

9 N,  Number  of  people  not  rescued  by  rescue  boat 

due  to  no  capacity  before  launch 

10  ZZ  Number  of  times  all  boats  in  water  become 

filled  (no  entries  in  columns  2 or  3) 

11  N.t  Number  of  people  not  rescued  by  rescue  boat 

due  to  no  capacity  after  launch 


3 N5/N 

4 X 


Variable 


Descri pti on 


N^/N 


One  less  than  the  number  of  simulations 

Number  of  people  in  the  water 

Number  of  people  rescued  with  rescue  boat 

Ratio  of  number  of  people  rescued  with 

the  rescue  boat  to  the  number  of  people 
in  the  water 
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APPENDIX  C;  Man  Overboard  Operator  Program  Listing 


1 Ivfh  UUUUUIUUUUUUJUJUJlilUUUIUJUUIUIUlAJUIUUJUUUUUJUUUUUUUUUUUUUUUUUWUUWUUUf'JUUUUUI/J  I 

' Rl  M INPUT  PROGFv'Arl  T OR  MAN  OUERBOARD  SIMUL  ATION  ? i L I..  U 1.978  j 

U)  OOSUB  9200 ; REM  HOME  X ERASE  TO. 

22  HIM  01  i:  iL>)  rD2(3) 

23  01 M I (10)  j: 

24  OIM  Mlli(  I7.)30.MA(  17)  *M>  ( I/)  :REM  UWUWWUWWU’WWWUl-JWWUUUWUlWWUUUlJWWU  | 

2ti  OIM  P:>(  15)  ,R<  <4)  I 

2 B 0 1 M T I ( 8 !.  1. 2 ) • 1 1. 1 ( 0 ) 2 0 y T 3 ( I O ) >■  I 5 ( 1 5 ) 1 P 1 M IJ  U W U U W W W U W W W W W W W U W W W W W W | 

28  OIM  0(B)  1 

30  REM  GET  BEGINNING  X ENOING  SERIAL  NUMBERS.  )^:*:*.t*****t*****i***t**t  i 

32  INPUT  “FIRST  SERIAL  NUMBER  "JN5  || 

3^  INPUT  “LAST  SERIAL  NUMBER" FNA  4 

10  INPUT  “BATA  PILE  NAME"yl  !l  § 

12  SELECT  tl  B20;BATA  EGAO  OC  OPEN  R#lyE$ 

.•,-8  FOR  N3“N5  TO  NB  ') 

A)  REM  INiriAEIZE.  * !()(()(<. If**  it  **.■((*  it  ***;((*  1; 

.'2  PRINIJPRINT  “INITIALIZING."  || 

GOSUB  9000 ; REM  INITIALIZE  CONSTANTS.  ^ 

7(f)  GOSUB  9100:REM  INITIALIZE  ARRAYS.  ! 

78  GOSUB  9200: REM  HOME  X ERASE  TO.  1 

80  REM  INPUT  SHIP  CHARACTERISTICS.  ****************************.*****  ( 

82  PRINT  “SHIP"  » Cl  $ |) 

81  li^CI  ji 

8B  PRINT  “ TYPE  OF  SHIP?"  j; 

90  FOR  I==C1  TO  M5  I; 

1 00  PR I N T T AB ( 4 ) y I y " . " y T 1 $ ( I > 1 - 

110  NEXT  I : PRINT 

120  INPUT  “NUMBER  OF  SHIP  OESIREO“yNl 

130  IF  NlLCl  THEN  80:iF  NI : M5  THEN  80  j 

110  GOSUB  9200: REM  HOME  X ERASE  TO.  j 

150  J1-M3:G0SUB  9300:REM  STD.  SHIP? 

1 BO  IE  Dl*=“l“  THEN  240 

170  M=C1 

180  FOR  JI-M3+CI  TO  M4-CI 

1 9 0 f • R I N T : f R I N r " ( S I'  0 . " y M 1.  $ ( J I ) y " “ “ i)  T 1 ( N 1.  y 0 2 < K I > ) y " ) “ y 

200  GOSUB  9300 : REM  ASK  QUESTION  X RECEIOE  REPLY. 

210  TI (Nl y02(Kl ) )=DI (KI ) 

220  K1=:K11C1 

230  NEXT  ,11 

2 40  P2< 10)"TI (NI  y 1 1 ) 

.250  I1=^C1 

260  GOSUB  9200 : REM  HOME  X ERASE  TO. 

2 7 5 R F M I N F U T R F S C U F B 0 A I'  C:  H A R A C T F R I S T I C S . ************************** 

270  PRINT  “RESCUE  BOAT“yCl$  ( 

280  print: PR I NT 

290  FOR  .11  "Cl  TO  M3 -Cl 

300  GOSUB  9300 :RFM  ask  question  X RECEIOE  ANSWER. 

310  NEXT  ,11 

320  OKID-HIO 

330  IF  011i<:>"I“  THEN  340  : 

335  01(I1)-C1 

340  J1-M4: GOSUB  93001  REM  ASK  LAST  R.B.  QUESTION  X RECEIOE  ANSWER. 

350  IF  Bl!t<>“l“  THEN  360 


1 1 (N.I  I 

3*0  p;>  k S ) =1  1 < N l » S ) : f'2  ( 6 ) -D  I.  i i 2 > 

3.-2>  F-2  V 1 5 ) “0  . VF)  (0.0  I XiH  I ( 7 ) 

3 0 Rf-h 

3/.'  Rf.  M I l)F  S IMUI  fVl  lONi.) . -'(<*)(<)(<>(<)(<i(( *■(<**)(!#;((**#!(())(*)(()(()(()(<)(<*****)(:*)(<)(< ***)(()(<**** 

37-1  RCM 

37!:1!  input  “NUMBER  01  E,  IMULO  I t QNIi  “ 5 N^ 

380  REM 

3‘-0  RI  M EOMPUTF  OAR  1 PULES  IHAI  REMAIN 

Tin)  KI  M CIJNSIANT  F OR  Al  l SIMl.ll  ATIUNS  IN  A RUN.  * ***)(!*)(<))< **)(!)(()(()(()((*)(()((* If-!:* 

I I O REM 

Til  I b ( 3 ) 1 0 

<518  T5i:T)««30 

■I  2 0 T S < B ) - U ( N I . 3 ) * ( C I B .1(9)  / T 1.  ( N .1  , C 2 ) ) 

<130  IE  rs(0)  <(:;o  ihi  n tto 

■)35j  T'b(B'-<PO 

<1  u'  ibi  i3)«<T:'2*(:;9*ri  (Ml  yCJ.  >/(73.05i«T.i  (ni  »i:;2) ) 

Eib  m I '■')<■<  300*  rs(  13  ’.'IBO 

ISO  lb(il)=IS 

<5* O'  ) '■;(  ,I2)“30 

'■jOO  REM  write  VhR.I ABLES  on  TTISK.  J*)***)****,**)**!**)*)*)*)*)*!**,**,****)*)******** 

SIO  OPEN  "DUMMY"  AS  2 .'READ  <l(<2  i A$  I rLOSE  2 i REM  WWWWWWUIWWWWUWWUHJIJWUWWWUW 

u:'0  DATA  ;IAOE  DC  # I >•  N1  » N2  » N3  c NT  5 REM  WWWWWWUWWWWWUIWWWWWUWWUUUUIUIWUUIWUIWUIWWUWWUIP 

OTO  EOR  l<«<C:l  TO  M2 

13*0  DAIA  SAOE  DC  <H  > T ,1  ( N J.  » I ) y DI  ( I ) y P2  ( I ) .•  T 5 ( I ) I REM  UlUWWWWUWWWWWWWWWUUWWWWW 

580  NEXT  I 

OOO  EOR  |.t«M3  TO  :15 

*20  DATA  SAO'E  DC  1 .1  y Dl  ( I ) y P2  ( I ) y T5  ( I ) 5 REM  WWUIUUWWWWUIWWIJWWWUWWUUUUUIJWUWWUUI- 

*40  NEXT  I 

*30  DAT  A SAUE  DC  *1  y T I $ ( N I ) I REM  WWWWUWUWWWUUWWUWUlWWWWUlWWWWWWWUWUWWUWWUUUUUWO 

* C;  O 1.1 0 S U D 8 * 0 0 I R E;  M D E BU  8 P R I N T . T T T T T T I T T'  T T T T T T'  T T T T T T T T T T T T I T T 1 1 1 T T T T 

*9u  IE  N3-N6  TUEN  799 

'00  REM  WANT  MORE?  ****)***)*)*)*)|(>*****)*)**)*)(<*)*)*)(!*)*)*)*)*)K)*)*)*)*)|<j((**,** 

•MC'  PRINT  “WANT  TO  INPUT  NEXT  RUN'?" 

720  PRINT  “ SERIAL  <»  "JNSICl 

;’30  INPUT’  ( :l  <~  YES  ; 0<'<'N0  ) " 5 A 

7<1u  IE  A<-CO  THEN  300 

.'SO  11  A .'VC I THEN  700 

*0  RESTORE 

.’'>'7  rlEXT  N3 

■ I"')  I • R I N I "IN  E'  U T F ' 1 1 A S E C 0 M F'  I . E I E:  . ’ 

DATA  SAOi:  DC  1 1 y END  I DATA  SAOE  DC  CLOSEALL  I STOP 

■ REM  DEBUG  PRINTOUTS.  *****)***)*****■***+.:*)*)((*)((***)**!****)***)(!*****)**)** 

SI  1. 1 C T F ' R INI  2 1 5(130) 

I'l  PR  INI  SPRINT  TIIi(NI)y 

1'.  I 4 <22 

<(*.••»  FOR  I2=CI  TO  12 

!.'...  IF  12 '.  ■'7  THEN  8323 

. . 1 I 4 = 2.' SPRINT 

l-RINT  TAD(  T4  ) y l;l  (HI  y 12)  5 
14-1419 
Ml  xr  12 

f ( I N I 5 F ' R 1 N I S P R I N T “ R E S C U FL  D 0 A T " y 


I 
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lif.Arj  M-?:> 

8650  roK  c^-r.j.  Id  i:‘ 

(3652  IF-  12  ./  lHt:.N  (:)65^( 

(3653  r4“22:F-iaNl 

8654  F>RIN1  IAI<(T4;  Fin  ( 12)  ; 

(3656  T4^r4*y 

(3658  NEXI  12 

8660  PF<INr  n-'RINCFiClNI  " F'Ia'OhAB  1 1 .1.  llES"  !- 

(3662  14^=22 

8664  F-OR  I2^^M3I  I C)  .15 

(3665  TF  I2<::  7 THCiiN  8.S66 : Gi)  ( 0 BAA  -' 

8666  IF  120:13  MICN  iiAAO 

(3667  1 4^:22  :F'R TN  I 

8668  F ■ R T N I'  1 A (3  ( I 4 ) ; F • 2 ( T 2 > i : I 4 f 4 t 9 

(3669  NEXT  .12 

8670  PRINT  lE-RTNCF'RTNT  “ 8/N  " i I dH  ■,  | 3 ; ? “ t OF  Blru"- 

8675  PF('  IN)  TAB  ( 2 4 ) J " I ( 8L  > " f T AB  ' 4 2 ' v “ 1 3 T (3  ) " * I AB  ■■  58  > F " 1 I...!.)  ■'  0 ■ ) " 

8680  PR  I NT  TAB  ( 67  ) ? ’ AF..PTIA  < I...!', ) " 

0 685  F ■ K INI  N 3 rr  A B ( i 3 ) ; N 4 5 T A B ( 2 4 ; F i 5 >.  8 ) F T A B ( 4 . » ) 1 5 ( ) F 

8690  PR  INI  T AB  ( 58  ) F T5  (IDF  T AB  ( 67  ) , i (12) 

(3694  PRINT 

8696  8EL.E(::T  print  005(80) 

0699  RETURN 

9000  REH  INITIALIZE  ********* 4 T* *♦  1(****T*)T**** 

9010  co^x):c;i=i 

9014  C3=^ii  :(::4:--:.i.o 

9016  C8'=60:(::9=3. 14159 

9 0 2 0 C 1 $ ” • (.THAR  A C T E R I <3  \ \r.S.“ 

9025  B2  ( 1 ) - 1 : 02  ( 2 > "2  I 02  ( -T ) 1 2 

9030  FI -254  1(3 1=^6 

9040  M1^33:M2:^-^1  2 

9045  rt  3 1 3 : M 4 = :l  7 I « 5 8 

9050  P3-==0 . 9595  t P4  0 . (>095 

9060  F'5  " 0 . 0.1  60  I F'6  0 . 0008 

9064  81-0 . 002  4 : 82  D) . .1  E 6 I 8 3 '^3/ . | 

9066  84=^5.91  -5:85  3).  101  : 86 -2. 25 

9080  XO-19 

9099  Rt  (OF/N 

9100  REM  5F  ( UP  APRAY8.  **;(*** .^  ********  I *.*****'t.****:****T-*T f :l 

9110  FOR  [”8I  (8  M4 

9115  REAfi  Mlt(  D »h6(  I ) »M7(  I ) 

7120  NEXT  I 

9125  FOR  I =81  TO  M5 

9130  RE AH  ri*(I) 

9135  FUR  J=1  18  M2 

9140  REAIi  TI(li-.l) 

9J45  NEXT  J 

9150  NFXr  I 

9J60  FUR  T-=81  TO  15 

9170  REAB  DM  D 

9180  NEXT  T 

9199  Rt TURN 

9200  RFM  HOME:  ‘i  ERASE  lO.  **************,{*****.************** 
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9210  PRINT  HEX (03) 

9220  RETURN 

9300  REM  DISPLAY  QUESTION  X RLOLIOE  ANSWER.  K-tt****** ***** 

9310  print:  PRINT  “ •;MI$(J.I;y 

9315  IF  M6(  J1)=--=^M7(  Jl)  THEN  9370 

9320  INPin  III  (ID 

9325  IF  D1  ( II  )<MA(  J1  :>  IHEN  9310 

9326  IF  HI ( 1 1) >M7 ( , J1 ) THEN  93 1 0 

9340  II -=11*1:1 

93^0  RETURN 

9370  PRINT.'PRINl  ' (1  = YES»  0 NO ) " ? 

9375  INPUT  'ENTER  0 OR  l'»ni<* 

9 3 80  I F ILU  = * 1 • I HI  N 9 3 9 9 

9385  II  Dl*  .:..  'O'  THEN  v3IO 

9399  REIURN 

9800  REM  IiAIA  STATEMENIS  I Ol:  QUI.  h 1 1 ONS  . ************** 

9805  DATA  'SPEED  IN  SMOOIH  WATER  ( KNO  1 S ) “ y 3 D (M) 

9810  DATA  'SPEED  IN  8 IT.  WAOl  S < KNO  IS ) " r 3 y 1. 00 

981 5 DA  T A * F REE  HOARD  I E I T ) ‘ . 0 . 5 y ,.'0 

9820  DATA  'PERCENT  OF  (.UNWALE  01 -RN  ( 7. ) " >•  I y 1.00 

9825  DATA  'HEIGHT  01  I..OOKOUTS  EYE  (I  T)"y3yf.iO 

9830  DATA  'MIAN  TIME  Tu  PREPARE  (MIN.>"yOylO 


9035 
7840 
9845 
9050 
9855 
9860 
7865 
9870 
9875 
9800 
9805 
9900 
991 0 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 

9992 

9993 

9994 


DATA  'NUMDER  OF  FAILS' yly2 

DA  TA  ■ Di:SCEN  T SPEED  ( FT  . /M I N D " y 1 0 y 500 

DATA  'MAX.  LAUNCH  SPEED  ( KNi  i TS"  ) “ y O - ;l  00 

DATA  'MAX.  WAVE  HEIGHT  ( F El  T ) “ y 5 y 1 00 

DATA  'STD.  MANEUOER  TIME  ( M IN  . ) " y 0 1 0 

DAI  A 'USE  BOAT  EOR  SEARCH" yOyO 

DATA  'WANT  STANDARD  SHIP'yOyO 

DATA  ' SHIP  LENGTH ' y 10  y 2000 

DATA  ' SHIP  SPEED ' y 10  y 50 

DATA  'MIAN  HEADING  ERROR  (Dn;.)"y0y5 

DAIA  'SEARCH  WITH  R.D.  ONIY'yyO 

REM  DATA  STATEMENIS  FUR  STANDARD  SHIP  CHARACTERISTICS. 

DATA  ' lANKER  ' y 845  y I 6 y 8 . 5 y 50  y 0 . 05  y 3 y 6 . 5 y 1 0 y 70  y 38  y 0 . - 'S  . I 
DATA  ' CONTA I NER " y 7 1 0 y 23  y 2 . 6 y 60  y 0 . 05  y 3 y 5 y 24  y 70  y 38  y 0 . 05 . 1 
DATA  ' ENG ' y 900  y 20  y 6 . 4 y 90  y 0 . 05  y 3 y 5 y 54  y 70 . 38 • 0 . 05  y I 
DAIA  'FISHING'  y75y  10y().5y20y0. 1 y2.2y4 .9y  I Oy70y38y0.5y2 
DATA  ' TUG ' y 1 50  y 7 y e r 25  y 0 . 5 y 2 . 2 y 4 . 9 y 1 0 y 70  y 38  y 0 . 5 v 2 

DATA  'BARGE  CARRIER  ( LASH ) “ y 740 y 21 y 6 y 60 y 0 . 05 . 3 y 5 y 25 y 7' ) , 38 y 0 . 05 r i 
DATA  'GREAT  LAKES  BULKER " y 708 y 1 4 . 9 . 4 y 37 y 0 . 2 y 2 y 4 y 1 3 y 60 v 42 y u . 05 v I 
DATA  'FERRY'  y 150y 16 y 0 . 5 y 35 y 0 . 15 y 3 y 5 y 8 y 70 . 38 y 0 . 5 y 2 
REM  PROBABILITIES. 

DA  TA  0 . 63  y 0 . 1 2 » 0 . 03  y 0 . 26  y 0 . 0 
DATA  0 . 0 r 1 . 0 y 0 . 5 r 0 . 9 y 0 . 0 
DAIA  0 . 8 y 0 . 9 y 0 . 0 y 0 . 65  y 0 . 0 


Appendix  D:  Annotated  List  of  Variables  and  Arrays  In  Man 
Overboard  Simulation 


1. 


Variables  that  remain  unchanged  throughout  simulation 
A$  = Input  disk  file  name 

B$  = Output  disk  file  name  in  Simulation  Program 
= String  of  blanks  in  Output  Program 
B9  = 1.0E30  (a  large  value  near  the  largest  the  machine 
can  represent) 

CO  = 0 


Cl  = 
Cl$ 
C2  = 
C3  = 
C4  = 
C8  = 
C9  = 
FI  = 

F9  = 
G1  = 
H$  = 
LI  = 
L2  = 
L3  = 
L4  = 
L5  = 
L6  = 
K$  = 
Ml  = 
M2  = 
M3  = 
M4  » 
M5  = 
N1  = 


1 

= string  " CHARACTERISTICS." 

2 

11 

10 

60 

3.14159 

254  in  Operator  Program 

temporary  storage  for  flag  F(6)  in  Simulation  Program 
0 


NO, 


6 

string 
3 
8 

32 
22 
41 
50 

String  "KNOTS" 

33 
12 
13 
17 
8 

Ship  Number 


MEAN  MIN. 


MAX. 


TAB"  values  for  "REGULAR  PRINT" 
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N2  = 
N3  = 
N4  = 
N5  = 
N6  = 
P3  = 
P4  = 
P5  = 
P6  = 
S = 

51  = 

52  = 

53  = 

54  = 

55  = 

56  = 
TO  = 
XO  = 

Variables 
FI  = 

I = 

II  = 
12  = 
J = 
Jl  = 
J7  = 
J8  = 
J9  = 

K = 
K1  = 


0 

Serial  Number 

Number  of  Simulations 

First  Serial  Number  (Operator  Program) 

Last  Serial  Number  (Operator  Program) 

0.9595 

0.0095  Constants  to  compute  probability  P,(- 
0.0168 

0.0008 

Season  (Time  of  Year) 

0.0024 

8.1E-6 

Constants  to  compute  minimum  and  maximum 

5 9E-5 

time  to  die  due  to  hyperthermia 

0.101 

2.25 

Survival  Time 
19 

that  change  (simulation  variables) 

value  of  flag  F(6)  after  search  by  ship  during 

search  with  both  sequence 

General  purpose  index 

General  purpose  index 

General  purpose  index 

General  purpose  index 

Index  into  Question  Array,  Ml$ 

General  purpose  index 

Index  into  results  arrays,  M9,  N9,  S9,  & T9  for  output 
Index  into  results  arrays,  M9,  N9,  S9,  & T9  for  accumulating 
statistical  results 
Loop  counter  for  search 

value  of  K after  search  by  ship  during  search  with  both 

sequence  in  Simulation  Program 

Index  into  array  01  in  Operator  Program 
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N = Overall  fraction  of  MOB's  rescued  with  rescue  boat 
P = Probability  MOB  has  flotation  (input  to  subroutine  8500) 

R1  = First  random  number  for  distributions 
R2  = Second  random  number  for  normal  distribution 
R3  = Variant  selected  from  a distribution 
T = Running  Time  (simulation  time  variable) 

T2  = Time  to  find  MOB  including  time  to  return  (T4) 

T4  = Time  to  return  (from  bridge  notified  to  MOB's  position) 

T6  = Value  of  T2  after  search  with  ship  during  search  with  both 
T8  = Value  of  T4  after  search  with  ship  during  search  with  both 
VI  = Normal  variant  with  mean  of  zero  and  unity  standard  deviation 


1 


3.  Arrays 

Array  IX):  An  array  of  values  originally  used  to  truncate  and  format 
variables  for  output  in  lieu  of  PRINT  USING  statements.  Not  used  in 
current  version  of  program. 


Array  D1 


Rescue  Boat  Characteristics 


Ij  Element 

Number 

Variable 

Description 

Units 

■ 

Vr 

®0 

''r 

®8 

Speed  in  smooth  water 

Knots 

a 2 

i'  ^ 

Speed  in  8 ft.  sign,  height  waves 

Knots 

f! 

3 

Freeboard 

Feet 

Percent  of  gunwale  open  {%) 

h 5 

Height  of  lookout's  eye 

Feet 

r ® 

Mean  time  to  prepare 

Minutes 

h 7 

Number  of  falls 

. . . 

i: 

Descent  speed 

Ft. /Min 

i! 

Maximum  launch  speed 

Knots 

i, 

Maximum  wave  height 

Knots 

h 11 

Mean  time  to  perform  standard  maneuver 

Minutes 

i!  12 

Use  boat  for  search  (l=Yes;  0=No) 

. . . 
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Array  D2  Index  of  ship  characteristics  to  change 


Element 

Number 

Val  ue 

1 

1 

2 

2 

3 

12 

Array  D9 

Print  requested  flags  (1  = YES;  0 = NO) 

Element 

Number 

Description 

1 

DEBUG  PRINT  # 1 flag 

2 

DEBUG  PRINT  # 2 flag 

3 

DEBUG  PRINT  # 3 flag 

4 

REGULAR  PRINT  flag 

5 

COMPRESSED  PRINT  flag 

Array  F 

Flags  set  at  strategic  points  in  Simulation  Program 

Element 

Number 

Description 

1 

Seen  - Not  Seen  (Seen  = 2;  Not  Seen  = 1) 

2 

Restricted  - Not  restricted  (Restricted  = 2;  Not 

= 1) 

3 

Use  rescue  boat  for  search  (NO  = 1;  Yes  = 2) 

4 

Search  results 

5 

Not  used 

6 

Simulation  results 

Arrays 

Ml$,  M6  and  M7  Questions  for  operator  and  limits 

Element 

Number 

Question  (contents  of  Ml$)  Minimum 

(M6) 

Maximum 

(M7) 

1 

SPEED  IN  SMOOTH  WATER  (KNOTS)  3 

100 

2 

SPEED  IN  8 FT.  WAVES  (KNOTS)  ^ 3 

100 

3 

FREEBOARD  (FEET)  0.5 

20 

4 

PERCENT  OF  GUNWALE  OPEN  (%)  1 

100 

5 

HEIGHT  OF  LOOKOUTS  EYE  (FT)  3 

50 
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MEAN  TIME  TO  PREPARE  (MIN.) 
NUMBER  OF  FALLS 
DESCENT  SPEED  (FT. /MIN.) 
MAX.  LAUNCH  SPEED  (KNOTS) 
MAX.  WAVE  HEIGHT  (FEET) 

STD.  MANEUVER  TIME  (MIN.) 
USE  BOAT  FOR  SEARCH 
WANT  STANDARD  SHIP 
SHIP  LENGTH 
SHIP  SPEED 

MEAN  HEADING  ERROR  (DEG.) 
SEARCH  WITH  R.B.  ONLY 


Array  M9  Simulation  results  (maximum  time  of  occurance) 


Element 

Number 


6 - 10 


Descri ptioa 

MOB  alive  when  bridge  notified  (seen) 

MOB  alive  when  ship  or  rescue  boat  returns  to  MOB's 
position  (seen) 

MOB  alive  when  found  in  water  (seen) 

MOB  alive  when  brought  aboard  rescue  boat  (or  ship)  (seen) 
MOB  alive  when  back  aboard  ship  (seen) 

Same  as  1 - 5 but  for  when  MOB  not  seen  going  overboard 


Array  N9  Simulation  results  (minimum  time  of  occurance) 
Elements  same  as  for  array  M9. 


Array  P2 

Element 

Number 


Probabilities  (Variable  name  same  as  element  number) 

Description 

Probability  MOB  seen  going  overboard 
Probability  MOB  had  flotation  when  seen  going  overboard 
Probability  MOB  was  wearing  a PFD  when  not  seen  going  overboard 
Probability  MOB  got  a Life  Ring  when  seen  going  overboard 
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'4 ' 

r ' 

K 1 


i! 
1/ : 


'! ; 

i*  : 


fj' 

r, 

' 


! 

I 


i T 

f 

( 

1 i 


5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


Probability  ship  restricted  from  turning  (set  to  unity  for 
search  with  rescue  boat  only) 

Probability  both  rescue  boat  and  ship  will  search  (set  to 
unity  for  "use  rescue  boat  for  search") 

Not  used 

Probability  MOB  is  spotted  in  water  during  a given  pass 
when  MOB  not  seen  going  overboard 
Not  used 

Probability  ship  will  recover  MOB  directly  when  found  by  ship 
Probability  ship  successfully  recovers  MOB  when  found  by 
ship  and  ship  elects  to  recover  MOB  directly 
Same  as  Pg  but  for  cases  when  MOB  is  seen  going  overboard 
Probability  MOB  and  rescue  boat  crew  will  come  aboard  the 
ship  and  leave  the  rescue  boat  adrift 

Probability  MOB  and  rescue  boat  crew  will  successfully  get 
back  aboard  ship  when  rescue  boat  is  cast  adrift 
Probability  rescue  boat  with  MOB  and  rescue  boat  crew  are 
successfully  recovered  along  with  rescue  boat 


Array  R Parameters  for  distribution  subroutines 

Element  Description 

Number 

1 Mean  for  normal  distributions  and  mode  for  Rayleigh  distribution 

2 Minimum  for  normal  distribution  and  uniform  distribution 

3 Maximum  for  normal  and  uniform  distributions 

4 Standard  deviation  for  normal  distribution 


Array  S8  Result  of  simulation  which  require  only  a count  of  the  number 

of  times  the  event  occurs 

Element  Description 

Number 

1 MOB  seen  going  overboard 

2 MOB  not  seen  going  overboard 


I* 


1 


1 

i 
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I 
I 

3 Rescue  boat  launch  failed  due  to  sea  state  ; 

4 Rescue  boat  successfully  deployed  ; 

Array  S9  Simulation  results  (number  of  successful  rescues  using  rescue  boat) 

Elements  same  as  for  array  M9. 

Array  T1  Ship  characteristics 

Note:  In  the  Operator  Program  this  array  has  two  dimensions  (Indexes). 

The  first  index  selects  the  ship  type;  the  second  selects  the 
ship  characteristic.  In  the  Simulation  and  Output  Programs  the 
single  index  selects  the  ship  characteristic.  The  changing  from 
two  dimensions  to  one  dimension  occurs  as  a result  of  the  separate 


programs 

with  a disk  file  serving  as  temporary  storage. 

Array  T1 

Ship  Characteristics 

(■ 

f 

1; 

Element 

Number 

Variable 

Descri ption 

Units  I 

1 

1 

^S 

Ship  length 

Feet 

2 

''s 

Ship  speed 

Knots 

3 

^SL 

^■-o 

Time  to  stop 

Minutes 

4 

Height  of  lookout's  eye 

Feet 

■ 

5 

Probability  ship  is  restricted  from  turning 

' 

i- 

6 

Mode  of  sign,  wave  heights  in  mid-summer 

Feet 

7 

Mode  of  sign,  wave  heights  in  mid-winter 

Feet 

8 

Freeboard  of  ship 

Feet 

9 

Mean  water  temperature  in  mid-summer 

Deg.  F. 

10 

Mean  water  temperature  in  mid-winter 

Deg.  F.  \ 

11 

^10 

Probability  MOB  will  be  recovered  by 
ship  rather  than  rescue  boat 

• • • 

12 

Mean  heading  error 

Deg.  ! 

I 
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Array  Tl$ 

Element 

Number 

1 

2 

3 

4 

5 

6 

7 

8 


Ship  type  used  only  by  Operator  Program  (a  variable  in  the 
Simulation  and  Output  Programs  holds  the  ship  type) 
Contents 

TANKER 

CONTAINER 

LN6 

FISHING 

TUG 

BARGE  CARRIER  (LASH) 

GREAT  LAKES  BULKER 
FERRY 


Array  T3 

Element 

Number 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


Parameters  for  search  (also  see  TABLE  I in  body  of  report) 
Description 

Time  for  ship  to  turn  or  time  to  prepare  to  launch  rescue  boat 

Time  for  ship  or  rescue  boat  to  return  to  MOB's  position 

Survival  time  remaining  at  beginning  of  search 

Navigational  Error 

Distance  of  visibility 

Time  since  MOB  last  seen 

Time  to  turn  (180  deg.  turn) 

Time  from  time  MOB  went  overboard  until  MOB  missed 
Number  of  opportunities  to  spot  MOB  during  search  until 
survival  time  expended 

Probability  MOB  will  be  spotted  in  water  during  a given  pass 


Array  T5  Various  values  that  remain  constant  throughout  a simulation 

Element  Description 

Number 

1 Time  since  MOB  last  seen 

2 Time  from  when  MOB  went  overboard  until  MOB  missed 
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♦ 

I 

I 


I 

i 

■I 

[i 


3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


Mode  of  survival  time  due  to  flotation  without  flotation 

Mode  of  survival  time  due  to  flotation  with  flotation 

Time  to  notify  bridge 

Time  for  rescue  boat  to  report  to  boat 

Time  to  prepare  rescue  boat  for  launch 

Time  for  ship  to  slow  to  the  maximum  safe  rescue  boat  launch 
speed 

Time  for  ship  to  execute  a Williamson  turn 
Survival  time 

Minimum  time  since  last  seen 

Mode  of  time  since  last  seen  minus  minimum  time  since  last  seen 
Time  for  ship  to  execute  a 180  degree  turn 
Time  to  launch  rescue  boat 
Environmental  distance  of  visibility 


Array  T9  Simulations  results  (sum  of  times  of  occurance  of  events) 
Note:  This  array  holds  the  running  total  time  for  the  event  during 
the  simulation  run.  After  the  simulation  run  each  element  of 
this  array  gets  divided  by  the  corresponding  element  of  array 
S9  (number  of  events)  to  yield  the  mean  time  for  the  event. 
Elements  same  as  for  array  M9. 


Array  V Various  variables 

Element  Description 

Number 


1 

2 

3 

4 

5 

6 


Water  temperature 
Wave  height 

Rescue  boat  speed  (in  the  height  of  waves  in  2) 
Speed  ratio  (Ship  speed  divided  by  boat  speed) 
Distance  of  visibility  from  ship 
Distance  of  visibility  from  rescue  boat 


If 

I 
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^ APPENDIX  E:  Man  Overboard  Simulation  Program  Listing 


i RLM  PROGfcAM  f OR  MAN  n'v'LRROARli  SIMMI  AIION  'f  MARCH  1978 

10  til) SUB  9200 : re:: M huml  it  e::rasi::  to. 

2 0 y R I N 1 “ T N 1 r I A I .1  7 1 N l i . ‘ 

2 2 u 1 M i:io  ( 1 0 ) » i:i  1 ( 1 fi  i » ii9  <:  > 

22  HIM  E (A) 

2-)  MEM  M1$U  7)20»MA>  I 7)  yM7<  I 7)  .M9(  10)  RE-M  UlUWUUWUWUWUWWWWWUUUUWWWUU 

25  1,1  I'M  N9  ( I 0 ) y R2  ( I 5 ) y R ( 4 ) y SB  ( 4 ) * S9  ( 1 .1  ) 

2.'.  HIM  I ll  12  ) y r.'K  10)  y T5(  1 75)  y T9(  10  ) REM  WUUWWWUtJWWUUIWUlUJWUUIWUUUW 

28  DIM  0(6) 


60 

GOSUB  9000  TRIM  INITIAL 

I/E  (tiONSTANTS  ^ . 

40 

INF'UT  'DEBUG  PRINT 

« L 

( 1 =:CES? 

0=-N0)  " yD9(t  1 . 

42 

IF  D9iCl)  .:  CO  THEN 

46: 

GOTO  50 

4:'T 

IF  D9(C1)  ...Cl  THEN 

40 

50 

INPUT  'DEBUG  PRINF 

#2 

( I^  YE  Sy 

0=N0  ) " ; D9  ( t:2  ) 

52 

IF  D9tr2)  .CO  THEN 

56: 

GO  ft)  54 

‘".6 

IE  09(12)  ::  Cl  THEN 

50 

5 4 

INPUT  'DEBUG  PRINT 

♦ 6 

( J - YES • 

0-:=NU  ) “ y D‘>  ( 6 ) 

5<b  IE-  ri9i2)  : CO  THEN  S/ltiUTO  AO 

57  IF"  ri<>(2)  :'>ci  the::n  54 

cO  INPUT  ‘RIGULAR  PRINT  il^^YESi  0^^  NU  > " y D?  ( 4 ,■ 

6 2 IE  D9<:4)  >C0  THEN  A2;G0IU  A A 

6 6 IE  ii9(  4)  :'..h:;i  then  AO 

.',6  INPUT  ■CUMPRESGEP  PRINT  (H^YESS  0"Nn  ) “ y i:i9  ( 5 ) 

68  IE  n9(5)  >C0  THEN  A9JG0TU  80 

69  IE  Ii9(5)-:.>t;i  THEN  A A 

80  REM  RANDUMF^EIRF  M WUJUUUWUUUUlWWUUlWWUlUUWWWWWWUUUUWUUWWUWWUUWUJWUUWtJ 

70  TNPUl  'INPUT  DATA  EIIE  NAME “ y AT 

92  IF  i:i9(5)  Cl  THEN  100 

•)4  REM  I PR  inter:  REM  UUWWWUUIWWUIUIUIWUWUIJUUWWWWWWUUWUIUIUWWUWWWUWWWWUIWUUIUI 

96  GOSUB  7900 : REM  COMPRESSED  PRINI-OUT  HEADING. 

98  REM  CONSOL  E:  REM  WUWWUUWWUWWWWWWWWUWIJUUIJUWWUUUUIWWUIWWUWWWWUIWWUIUUUIU 

100  REM  READ  OARIABl.ES  FROM  DISK. 

I 18  Z$  = AT 

120  SELECT  #1  B20:DATA  LOAD  DC  OPEN  RtlyAT 

140  REM  BEGIN  L OOP  TO  DO  RUNS  TO  END-OE -EII.E . )«))()F;)K)K))()K)|!)()K)K*********!»! 

150  DATA  LOAD  DC  #1  r N1  y N2  y NiJ  y N4  : CE  END  THEN  400:RI:::M  UWWUWUWUIWWWWUWUW 

i52  IF  ^iOZ*  THEN  158 

156  SEI  ECT  #2  P20:DATA  LOAD  DC  OPEN  R*2yB$ 

160  DATA  SAOE  DC  *2  y N 1 y N2  y N2  ? N4  .*  REM  WUWUWWWUUWUWWUWWWWUUUWUWWUUUWWUU 

1 '0  FOR  I=C1  TO  M2 

180  DATA  LOAD  DC  ♦ I y i I ( I ) y D1 ( I ) y P2 ( I > . T5 ( I ) 1 REM  WWUWWUWUWWUWWWWWUU 

185  DATA  SAOE  DC  #2  y 1 1 ( I ) y D1  ( I ) y P2  < I ) y T5  ( I ) 1 REM  wgwWUUUUWUUUWWUlUUI 

ivi;  NEXT  I 

200  FOR  I=:M2  TO  15 

220  DATA  LOAD  DC  # 1 y D1  ( I ) y P2  ( I ) y T5  ( I ) 1 REM  WWWWWUlUUUUWWWWWUWWWWWUUW 

220  DA lA  SAOE  DC  *2  y D1 ( I ) y P2 ( I ) • T5 ( I ) t REM  WUWUUWUUWWWUUUWUWWWUWUW 

240  NEXT  I 

250  A$=BT 

2A0  DATA  LOAD  DC  tlyTlTlREM  WUUUWUUWWUWWWWWUUUWWWWWUWWWWWUUUWUlJUWWUU 

262  DATA  SAVE  DC  *2yTiT:REM  uuguuuuguggguuguuuuiuugguuuguuguuguuuuuu 

266  IF  D9(2)  Cl  THEN  ;200 

270  REM  lprinter:rem  uuuugguuguuuuuguugugguuuguuguuuuguugugguuguguigu 

280  GOSUB  7A00:REM  DEBUG  PRINT- OUT. 


1i 


; i 


k 


Jtifi  KIr  h CONSOL  L : Fv'E'M  UUUUUOUUUUUWUUlJUUUUUUUUUUtUUUUUUUUUUiNUUUJUIUUUUUUUtJ 

.500  FOR  i=c:l  TO  10 

5'’0  M9  < T 1 :=  -B9  : N9  ( I ) :=B9 

.5.50  S9<  1 >:=:C0  5T9(  1 )^C0 

.540  NEXT  I 


.5  SO 
.5.*)0 
599 
4 00 
4 I 0 
»30 
4 40 
4 42 
4 SO 
4S  ■> 
4 4)0 
462 
J70 

4 7 2 
47  4 
480 
490 
49  2 
49  4 

496 

497 
49Et 

499 

500 

5 1 0 
520 

5.50 
550 
560 
570 
580 
590 
600 

6 10 
620 
625 

6.50 
655' 
640 


SB  ( C 1 ) =C0 : SB  1 82  ) =:=C0  L SB  ( .5  ) ^CO  i SB  ( 4 ) -CO 
S9( 11 ) =C0 
GBLO  470 

F'  R I N r : p R 1 N 4 ■ F 1 NISH  f:  i:i . “ ; n a I a s a o e n c * 2 » f : n b 

HAT  A saoe:  nc  nL.osE:Ai.L 

stop 

PRINT  ■OUTPUT  DISK  ERROR." 

STOP 

PRINT  ‘CAN'T  OPEN  INPUT  F II...F:.“ 

STOP 

F ■ R I M l ’CAN'  1 0 P E:  N 0 U I F ■ U 1 F"  1 1..  E . " 

STOP 
Fil  F!  M 

REM  BEGIN  LOOP  TO  PERFORM  N4  SIMUIAIIONS.  itoLoFtjLoF!;^**#************ 
REM 

FOR  NB=C1  TO  N4 
REM 


REM  RESET  FLAGS.  **)((*)«*)L(*)(()K)t<!K!t<****)Ft**)K*)Lt***)X)K*)(<*******)K 
REM 

FOR  I==C1  TO  6 


F ( I )==C0 


NEXT  I 
F9=C0 


REM 


REM  COMPUIE  OAR  I ADI,  ES  THAT  REMAIN  CONSTANT 

REM  FOR  A GIOEN  SIMUL,ATION.  ^jK************************)*!)*******:* 

REM 

RFM 

REM  COMPUTE  NAOIGATIONAL  ERROR  = N.E.  XoK jK*** )K)K* )K ******  * 

REM 

R (Cl) -CO 

R ( ;5  ) =C2*T  I (Cl)  : R ( C2  ) =-R  ( 3 ) 

R(4)=T1 (Cl  ) 

GOSUD  8000 : REM  CONSTANT  TERM  IN  N.E. 

N2“R3 

REM  CONTINUED  L.ATER  (I..INE  922). 

REM 

REM  SET  SEASON  (TIME  OF  YEAR).  *)lii*iiii*t****t***tt***t**** 

REM 


650  S=RND(1) 

660  REM 

664  REM  ENOIRONMENTAL.  OISIBII.ITY.  * IK********  *)((***)((  *)(()«  )«)((♦*** 

666  REM 

66fl  R(C1 )=25000:GaSUD  8200 t T5 ( 15 ) =R3 

670  REM 

672  REM  DISTANCE  OF  OISIDIl.ITY  FROM  SHIP  AND  BOAT. 

674  REM 

676  GOSUB  9500 


E-2 


— 


*80  Rf.:M 

*82  Rf  h UATf  R i RMPt; RA 1 URr  . *)(titt***)(()((#**))(******>l')l<^(******i((** 

*e‘)  RFH 

* 9 <'  R U : I ) T H 9 ) #.  ( 7 I ( I 0 ) ...  I I ( y > .)  * s 

*91?  R(  C2.).'=^2l-.i:RhM  MJ  N M HP  . 

*9.4  R(8  I.00;R(  4):=^  10 

0.96  GO 8 UK  8000 

0.9))  '.'(Cl  ).'=^R;'5 

/'('■(>  RPM 

:':I0  RPH  GlIROtOAl  TlMf'  \ HVPPR  1 1 It  RH 1 A ) . 

■^20  RPh 

730  GOGI.'R  B400  J T5  ( 1 0 > =^4(3 

•40  REh 

742  REh  WAVE  HEIGHT,  K*******  ♦-t*.**.***  tj*;;!'*****  ♦ I'***  j|oK)K)K)K**** 

■’4)  REh 

7 5 0 R ( C 1 ) ■-  T J.  < .6  ) ( f 1 ( 7 ) ■•-  T t ( .4  .>  > * S 

752  GO CUR  8200 

754  '.'(C2)^=4(3 

?6V  REh 

7*2  REh  PROBARILITY  OF  SHCCEGSFIII..  RECOOlRi'  OF  R.B. 

764  REM 

76o>  P2 ' 1 5 ) ^=P3--P4»i:il  ( 7 ) •■•  (J  < C2  > t ( P5  ■•■P6)«IU  ( 7 > .• 

770  REh 

7 7 2 R t;  M BOA  T 8 P E E B H S P E E B R A I .1 0 . ;«  * * * ;*;  K * * if:  * * * * * ♦ * if  # * K * * 

7 ’4  Rfch 

77.:.  0(3)=^B1(C1  )i(Bl<C2)-Bl  (1.1.)  )l!0^C2>/8 

'00  IF  0(3) >3  THEN  784 

782  0(31-3 

78  4 0(4)==H  (C2)/0(3) 

786  IF  B9(CI)o(::i  THEN  800 

790  GO 8 OB  8700: REh  BE BOG  PRINT. 

800  REh 

81i<  RFh  LOGIC  to  BETERhlNI-:  r(h>  % EI  OATATION.  ***** It*********** 

820  REh 

)1 3 0 I F f ( N B ( 1 ) < p 2 ( C 1 ) 1 1 1 E N 1 6 0 0 

840  REH  NOT  SEEN  GOING  OOERBOARB.  ********************************* 

850  F (Cl)  =4:1 

855  SB  ( C2 ) *458  ( C2  ) I Cl. 

8 0,0  P*^P2(3) 

370  GOSOB  85()0:REM  SI.JR0T'7AI..  TlhE  (ELOTATION). 

880  IE  R3>T5(J0)  THEN  890 

882  T5(I0)*R3 

808  REh  COhPHTE  TlhE  LAST  SEEN  S),  TIME  hISSEB  .NOT  SEEN).  ********** 

890  R(CI  )*:T5(  12) 

900  GOSOB  8200: REh  RAYLEIGH  BIST. 

910  T5(C1 )-T5( 11 ) »R3JREh  TlhE  LAST  SEEN 

920  T5  ( C2  ) =-T5  ( C 1 ) *RNB  (1)1  REM  T I ME  M I SSEB . 

922  REM  COMPLETE  N.E. 

924  R(C1  ):*l  .77*T1  ( 12  ) *T5  ( C2  ) * 1 1 (C2) 

926  GOSOB  BIOOIREM  SLOPE  TERM  IN  N.E. 

928  N2.'*ABS(N2IR3) 

930  T=T5(C2) 

932  REM  SET  TO  TO  SOROIOAL  TIME. 


E-3 





ro^rsdo) 

939  KEM  IS  MAN  STILL  ALiyE  (MISSED)? 

940  IF  T>==TO  THEN  3100 

94S  REM  COMPUTE  TIME  TO  NOTIFY  BRIDGE  (NOT  SEEN).  IK**************** 

9S0  R(C1)=:C1 

9o0  GOSUB  OlOOJREM  TIME  TO  NOTIFY  BRIDGE. 

•’VO  T5(5>=R3 

900  T-^  I fR3 

'09  REM  IS  MAN  STILL  ALIOE  (BRIDGE  NOTIFIED)? 

990  IF  T;:"T0  then  3200 

1000  REM 

1010  REM  I OGIC  TO  HANDLE  SEARCH  BY  BOAT » BY  SHIP»  OR  BY  BOTH.  **)K***)1. 
1020  REM 

I 0 2 S ,1 9 = A J G 0 S U B 6500 

(030  IF  RND(1  ) 0:^P2(5)  THEN  1500 

1040  REM  SHIP  NOT  RESTRICTED.  KjF.slott****)*!*)*!************#***)*!**)*!****))!**;^ 

1050  F(C2)=C1 

1060  IF  P2(6)>C()  THEN  1200 

1100  RFM  SEARCH  WITH  SHIP  ONLY  WHEN  MOB  NOT  SEEN.  *)X)F**)H*****)t(***)FY>F)l 
1110  E(3)=C1 

1120  Z^^3 

1130  GOSUB  7000 {REM  SET  UP  T3  ARRAY. 

1.140  GOSUB  9400  {REM  DO  SEARCH. 

il44  REM  INCREMENT  TIME. 

1148  T=T1T4 

1150  REM  TEST  FOR  SUCCESS. 

1160  IF  F(4)<8  THEN  3300 

1170  REM  SUCCEEDED. 

1174  ,19-71  GOSUB  6500 {REM  REACHED  HOB'S  POSITION. 

1180  T^^TFT2-T4 

1185  ,.I9'=:B{  GOSUB  6500  {REM  FOUND  MOB. 

1190  GOTO  1400 

1200  REM  SEARCH  WITH  BOTH  WHEN  MOB  NOT  SEEN.  ****)K**)K**K*)t;****i«**)«*** 

1210  REM  FIRST  WITH  SHIP. 

1212  F^3)=C2{Z=3 

1214  GOSUB  7000 {REM  SET  UP  T3  ARRAY. 

1216  T3(4)-0.5Jt(T3(4)  {REM  AD,J.  N.E. 

1210  GOSUB  9400 {REM  DO  SEARCH. 

1220  REM  SAOE  RESULTS, 

i 222  F 1 -F ( 4 ) { K 1 =K { T6-T2 { T8=T4 

1230  REM  THEN  WITH  BOAT. 

1232  REM  CAN  LAUNCH? 

1234  IF  Dl ( 10)>-0(C2)  THEN  1240 

1 236  F ( 4 ) =4  { T2^C0  { T4~C()  { SO  ( 3 ) =Se  ( 3 ) f C 1 

1 238  F ( 3 ) =C 1 { GOTO  1 250 

1240  Z^4 { S8 ( 4 ) ~S8 ( 4 ) 1C 1 

1242  GOSUB  7000 {REM  SET  UP  T3  ARRAY. 

1244  T3(4)=0.5)t(T3(4)  {REM  ADJ.  N.E. 

1246  GOSUB  9400 {REM  DO  SEARCH. 

1248  REM  DETERMINE  SUCCESS9  it  WHICH? 

1250  IF  FI >7  THEN  1256 

1252  IF  F(4)  ::8  THEN  3400 

1254  GOTO  1260 


1256  TF  F(4)<8  THEN  1270:iF  T6<T2  THEN  1270 

1258  REh  FOUND  BY  BOAT  ONLY  OR  FOUND  BY  BOAT  FIRST  (OR  AT  SAME  TIME). 

1260  F(5)=:4:T=T  + T4 

1262  J9=:7:G0SUB  6500:REM  reached  MOB'S  F'OSITION. 

1264  T-T+T2-T4 

1266  J9=8;G0SUB  6500 J REM  FOUND  MOB. 

1268  GOTO  2350 : REM  FOUND  BY  BOAT. 

1269  REM  FOUND  BY  SHIP  ONLY  OR  FOUND  BY  SHIP  FIRST. 

1270  F(5)=3:T=T+T8 

1272  J9=7:G0SUB  6500 : REM  REACHED  MOB'S  POSITION. 

1274  T=:T  + T6-T8 

1276  J9=8:G0SUB  6500 J REM  FOUND  MOB. 

1400  REM  FOUND  BY  SHIP.  J*!*#****#**#*********#************************ 

1410  REM  MANEUVER  NEAR  MOB. 

1420  R(C1 )=C2:G0SUB  8100 

1430  T=T1R3 

1440  IF  T::=T0  THEN  4900 

1450  GOTO  2100 

1500  REM  SEARCH  WITH  BOAT  WHEN  MOB  NOT  SEEN.  **♦*♦*»****»♦*****♦*♦*** 

1510  Z=4 

1520  GOTO  1820 

1600  REM  SEEN  GOING  OVERBOARD.  t*********t*)^t*******i**************** 

1610  F(C1)=C2 

1614  S8(C1 )=S8(C1 )+Cl 

1616  P=P2(C2) 

1630  GOSUB  8500:REM  SURVIVAL.  TIME  (FLOATION). 

1640  IF  R3>T5(10)  THEN  1660 

1650  T5(10)=R3 

1655  REM  COMPUTE  TIME  TO  NOTIFY  BRIDGE  (SEEN).  ********************* 
1660  R(C1)=C1 

1670  GOSUB  8100:REM  TIME  TO  NOTIFY  BRIDGE. 

1680  T5(5)=R3 

1690  T=R3 

1695  T0=T5(10) 

1700  REM  IS  MAN  STILL  ALIVE  (BRIDGE  NOTIFIED). 

1710  IF  T: =T0  THEN  3600 

1715  J9=C1!G0SUB  6500 

1720  REM 

1730  REM  LOGIC  TO  HANDLE  SEARCH  BY  BOAT  OR  SHIP  (SEEN).  ♦♦***♦**»*♦* 
1740  REM 

1750  IF  RND(1)>P2(5)  THEN  2000 

1800  REM  SHIP  IN  RESTRICTED  WATERS.  ♦♦*♦)((*♦*♦♦****♦!((**»*»♦»#»♦*»*#»#♦ 

1810  Z=2 

1820  F(C2)=C2 

1830  REM  CAN  LAUNCH  BOAT? 

1840  IF  D1  ( 10).>=V(C2)  THEN  1870 

1850  F(4)=4:T2=C0 

1860  GOTO  3700:REM  FAILED  NO  LAUNCH. 

1870  REM  SET  UP  AND  DO  SEARCH. 

1880  GOSUB  7000 : REM  SET  UP  T3  ARRAY. 

1890  GOSUB  9400 : REM  DO  SEARCH. 

1895  T=T+T4 

1900  REM  DETERMINE  SUCCESS. 


I yoj=. 
i 1 0 
.i9:io 
1 960 
1970 
1980 
1990 

1999 

2000 
2010 
2020 
2030 
20  <10 
20^1S 
20'.0 
20*0 


I 


I 

I 


207Jv 
2080 
208S 
2 t 00 
2 U 0 
2120 
2130 
2140 
2200 
2210 
2220 
2230 
2235 
223* 
224  0 
2245 
2250 
2255 
2260 
2270 
2280 
2285 
2290 
2300 
2305 
23 1 0 
2320 
23.30 
2335 
2340 
2350 
2360 
2370 
2380 
2390 
;>400 
2410 


I-  (3)~c2:se(4)=se(4) ici 
IF  F(4) <8  THEN  3800 
J9:=:C2 

l.iOSUB  6500  :RFM  RF0CHE1.I  HOR'S  FOSITIDN . 

J9-.l9iCl 

T^TH2-T4 

GGSUB  6500 .‘REM  FQUNI.i  MGR. 

GOTO  2350 

REM  SHIP  CAN  TURN  (SEFN). 

F(C2)=^C1  :F(3)==C1 
Z=1 

GOSUB  7000 : REM  SET  UF  T3  ARRAY. 

GOSUB  9400! REM  DG  SEARCH. 

T=T+T4 

RFM  DETERMINE  SUCCESS. 

IF  F(4.)<e  THEN  3900 

J9^C2:GnSI.IB  6500 : REM  REACHED  MOB'S  POSITION. 

1==TIT2--T4 

J9^3: GOSUB  65001  REM  FOUND  MOB. 

RFM  RECOOER  WITH  SHIP?  t**^t***W*^iiti*.ilf^t*i^.ilii**.*.*^***^*********i*M 
IF  RNB< 1 )>P2( 10)  THEN  2200 
REM  USE  SHIP  FOR  RECOVERY. 

IF  RND< 1 >>P2< 11 ) THEN  4100 
GOTO  5000 

REM  MAN  FOUNB  BY  SHIP  RECOOER  WITH  R.B.  ***)(c***i((*****)*(*))c***l<*»)*c 
REM 

IF  F(3)<C2  THEN  2300 

REM  BOAT  ALREADY  LAUNCHED  (SEARCHED  WITH  BOTH), 

IF  M-Cl  THEN  2236 J GOTO  2240 

IF  FI =9  THEN  2260 

REM  NOT  FOUNB  ON  FIRST  PASS. 

R (Cl) ^0 . 25*0 ( 4 ) *T5 ( C 1 ) 

GOSUB  8100 
GOTO  2280 

RFM  FOUND  ON  FIRST  PASS. 

R3=:T5  ( C2 ) *ABS  (0(4)  -C 1 ) 

T:=T  + R3 

IF  T;=TO  THEN  4200 
GOTO  2350 

RFM  LAUNCH  RESCUE  BOAT.  it:************************************** 
REM  CAN  LAUNCH  BOAT? 

IF  D1(10)<0(C2)  THEN  4300 
REM  LAUNCH  RESCUE  BOAT. 

T=TfT5( 14) 

S8(4)==S8(4)  FCl 
IF  T:=TO  THFN  4400 

REM  MANEUVER  THE  RESCUE  BOAT  TO  RECOOER  MOB.  ****************** 
R(C1  )=D1 ( II  ) 

GOSUB  8100 
T=T+R3 

IF  T>=TO  THEN  4500 

REM  RECOOER  MOB.  *********************************************** 

R(C2)=D1  (3)--C2 


I 

t 


( 
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2420  R<C1)=<0.5+0.125*R(C2)*R(C2; )*(C1+EXP(4-0.1*D1(4) > ) 

2430  GOSUB  8100 

2440  T=T+R3 

2450  IF  T>=TO  THEN  4600 

2460  J9=4 

2490  GOSUB  6500:REM  MOB  IN  R.B. 

2500  REM  UNLOAD  OR  RECOVER  RESCUE  BOAT.  *♦*****♦*»»#**♦♦♦#♦* 

2510  REM 

2520  IF  RND(l) <P2(13)  THEN  2560 

2530  REM  UNLOAD  R.B.  CREW  i MOB.  ***))<*))(*»**********)K*)»t*)K*)tc»* 

2540  IF  RND< 1 ) <=P2( 14)  THEN  5100 

2550  GOTO  4700 

2560  IF  RND(1 ) :>P2(15)  THEN  5200 

2570  GOTO  4800 

3100  REM!!  ‘DIED*  MISSED.  T»TS  -•JTfTO 
3120  F(6)=C1 

3199  GOTO  5900 

3200  REM!!  ’DIEDf  BRIDGE  NOTIFIED.  T>TS  =';TfT() 

3220  F(6>=C2 

3299  GOTO  5900 

3300  REM!!  'DIEDf  SEARCH  FAILED.  T>TS»F(4)  =*fTfT0»F(4) 

3320  F(6)=3 

3330  IF  F(4)=C1  THEN  5900 

3340  J9=7:G0SUB  6500:REM  reached  MOB'S  POSITION. 

3399  GOTO  5900 

3400  REM!!  'DIEDr  SEARCH  BY  BOTH  FAILED.  T,TSfF(4)  =*JT»T0fF(4) 

3420  F(6)=4 

3430  IF  F1=C1  THEN  3440 

3434  IF  F(4)=C1  THEN  3450 

3438  IF  T4>T8  THEN  3450 

3440  IF  F(4)=C1  THEN  5900 

3445  T=T+T4;G0T0  3460 

3450  T=T+T8 

3460  J9=C2JG0SUB  6500:REM  REACHED  MOB'S  POSITION. 

3499  GOTO  5900 

3500  REM!!  'DIEDr  RECOVERY  BY  SHIP  FAILED.  T>TS  =‘fTfTO 

3520  F(6)=5 

3599  GOTO  5900 

3600  REM!!  'DIEDf  BRIDGE  NOTIFIED  (SEEN).  T»TS  =‘}T}TO 

3620  F(6)=6 

3699  GOTO  5900 

3700  REM!!  "R.B.  LAUNCH  FAILED.  W.H.f  F(4)»  T =■ JV(C2) f F(4)  J T 

3720  F(6)=7 

3730  S8(3)=S8(3)+C1 

3799  GOTO  5900 

3800  REM!!  ’SEARCH  FAILED  (SEEN).  F(4)fT  fF(4) »T+T2 

3820  F(6)=8 

3830  IF  F(4)=C1  THEN  5900 

3840  J9=C2:G0SUB  6500:REM  reached  MOB'S  POSITION. 

3899  GOTO  5900 

3900  REM!!  ’SEARCH  FAILED  (SEENf  SHIP).  F(4)»TrTS  =’ rF(4) » T+T2f TO 

3920  F(6)=9 

3930  IF  F(4)=C1  THEN  5900 
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THIS  PASJS  LS  BdSI  QtlAIiin 
Tgsttu  wah.  JMUU£bDi:>  XO  I1>Q  • ■ 

3<)AO  )9“(;::>:G0BIJH  A5()0:K'f.M  KHACHEII  HOB'S  fOSTMON . 

,5'".“.'  GOTO  S900 

n.H)  RfH'i  •Rf-GOOflRY  WITH  SHIf  f AILEB.  T 

»l.'0  F (A) -10 

ll'.".'  GO  in  5900 

i;’00  f<FH!'  •niErw  boat  RTIURNING  to  mob  position.  TPTS  ==‘rTfTO 
t;'..’o  F(A)-n 

Of),-,)  59f)() 

l lOo  REM'  I ■BIE.Iir  f OONB  MOB  BIJl  COUl  B NOT  LAUNCH  R.B.  UAOE  HEIGHT  =*rV(i,.'^ 

1 L.‘0  f'(A)-i:'> 

•IT  Iv'  SB(;j)-:S8<  5)  ICt 

L?99  Goto  5900 

!'!00  REM!'  ■liIt:B  WHILE  I AUNCH I NG  R.B.  T»TS  " » I . 10 

\ \.'0  F (A)=^13 

■I -19"  GOTO  5900 

ISO',','  REM''  *111111  WHILE  PFHcFORMING  A STD.  MAN.  ItLMB.TS  ^'JTFRTJTO 

»5,?<''  F<A)-i'I 

159'>  GO  10  590(,' 

?.-»0"  REM'!  "BLEB  WHILE  BRINGING  ABOARB  R.B.  TPIREMrTS  = *}rFR;5»T0 

l.sTO  F(A)  = :I5 

!o.';'9  GO  VO  5900 

I RFM'i  ‘LOST  UNLOABING  R.B.  TPIS  - “ f T F TO 

I :’.'0  F I ’> ) =16 

1''  ' GOTO  5900 

lO'.n)  RF-M'i  “LOST  R.B..  CREW»  ANB  MOB.  T.TS  =*;t;TO 
•IB.’O  F(6>  = 17 

■IB9V  GOTO  5900 

4900  REM''  •BIFB  BORING  MANEU'^ER  SHIP  NEAR  MOB.  T»TS  =";T»T0 

tv 90  F<6)=18 

49/9  1,010  5900 

5000  RFM  RFCOVERFB  MAN  WITH  SHIP 

•■'0^0  F5  6)=;.'0 

'.099  007(1  5:‘70 

‘-jIOO  REM  RFCO'-'FREB  MAN  FROM  RI  SCUE  BOAT. 

5 I 'O  F f6)  = .'1 

5 I ',’9  GO  in  5 9 . JO 

5200  REM  RELOOEREB  RESCUE  BOAT  WT  IN  MOB  ,<5  CREW. 

5220  F(A)--=22 

5 2, JO  ,19  = 5 

5260  GOSIIB  65001  REM  MOB  SA'/FB. 

5270  S9  M 1 > =S9  ( 1. 1 ) f C 1 

5900  REM  ENB  OF  SIMULATION.  *#)|!iK4i**.)t;**!F',***4i***** * .K 

■>9I0  IF  B9<C2)<C1  THEN  5999 

5920  REM  L PR  INTER*.  REM  UUWUWWWWWWWWWWWWWWWWUWWWWWWWWWWWWWWWWWWUUUWWWWWUWI,'ll.M,lll 

59  JO  GOSLIB  OOOO’.REM  BEBUG  F'RIN*. 

594':,  REM  console:  REM  WWWUWWUWWWWUWWWWWWUWWWWWWWUWUUWUUWWWWWUWUUWUWWWUWWW'.1WUI 

5999  NEXT  N8 

6000  REM 

6002  RFM  RECORB  RESULTS.  iK**)*!******)*;********#*^********!!******)*****'*; 

600J  REM 

6004  REM  COMPUTE  MEAN  TIMES. 

6005  RFM 

■','>06  FOR  T=C1  10  10 

E-8 

I 

■I 


I 


i 

( 

( 

I 


oOOii 

&0i0 

bOlci 

6014 

oOlb 

6016 

oOdO 

60:^4 

6026 

6028 

oOiO 


IV  S9(1)<=0THEN  6012 
T9a)=T9(l)/S9(l) 

NEXT  1 

IF  D9(4)<ClTHEN  6024 
HEM  LPRINTER  IREM 

COSUB  6100: REM  RECULARPRINT- 
REM  CONSOLE  :REM 

IF  D9(5>‘C1THEN  6070 


OUTJ 


REM 

REM  COMPRESSED  PRINT -OUT.  •*«»*»«**»********<nnnnn(-*»*** 
REM 


6032  PRINT  TAB(7>;*SEEN  * "•,S8(C1);"  R.B.  DEPLOYED  = “;S8(4); 

o034  PRINT  TAB (43);  "NOT  SEEN  - •;S8(C.2);*  R.B.  FAILED  = “;S8(3) 

60361  »### 

^^03b  PRINTUSINC  6035, N3; 

60361  #«.#«» 

o040  FUR  1=C1T0  10 

6042  PRINTUSING  6038, S9(l); 

6044  NEXT  1: PRINT  : PRINT  TAB (6); 


6046  FOR  ICITO  10 

o062  PHINIUSING  6038, T9(I); 

60S4  NEXT  IrPRINT  :PRINT  S9 (11 ) ;TAB ( 6 ) ; 

6066  FOR  1=C:1T0  10 

6066  PRINTUSING  6038, M9(l); 

6060  NEXT  IrPRlNT  :PRINT  TAB(6); 

6062  FOR  I^CITO  10 

6064  PRINTUSING  6038, N9(I); 

bObb  NEXT  IIPRINT  :PRINT  :PRINT 

oOTO  REN  WRITE  TO  DISK.  •**««****■***■**■»♦»♦***»****■**»*«■*♦**«■** 

6074  DATA  SAVE  DC  #2,S9(),T9<) 

oOTb  DATA  SAVE  DC  #2 ,N9 ( ) ,N9 < ) ,S3 ( 1 ) ,S8 (2 ) ,S8 (3 ) .58 (4 ) ,S9 ( 11 ) 

6099  GOTO  140 

biOO  REM 

6110  REM  REGULAR  PRINT -OUT.  •»»#*#*#»«•**«•*«•«•******■»•***###•*****#*****♦ 

oi20  REM 

61251#.## 

6130  Li=3:L2=Li+5:L3-Ll+29:L4=Ll+i9:L5=Ll+38:L6=L4+28 

6140  PRINT  :PRINT  rPRINT 

6142  GOSUB  7800 :REM  PRINTHEAD INGWITHS/N . 

6144  PRINT  :print  :PRINT  TAB(L1>;T1$ 

ol46  PRINT  :PRINT  TAB (L2 ); "LENGTH  = " ;T1 (Cl ) ; "FEET " ; 

6148  PRINT  TAB (LS );  "SPEED  = " ".TKCE)  ;K$ 

6150  PRINT  TAB  (L2  )-," NAVIGATIONAL  HEADING  ERROR  = " ;T1  ( 12  );  "DEGREE  (S ) “ 

ol62  PRINT  TAB (L2 ) ;P$; "SHIP  WILL  BE  RESTRICTED  FROM  TURNING  = 

6164  PRINTUSING  6125 , P2 ( 5 ) :REM  WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
6166  PRINT  TAB(L2);P$;"SH1P  WILL  RECOVER  MOB  DIRECTLY  = 

6157  PRINTUSING  6125 , P2 ( 10 ) :REM  WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

6158  PRINT  :PR1NT  :PRINT  TAB(L1);R* 

6160  PRINT  TAB (L2 ); "SPEED:  " ;D1 (Cl ) ;K$ ; " IN  CALM  WATER" 

6162  PRINT  TAB(L2+8);D1(C2);K*;"  IN  8'  SEA" 
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AiA'l 
S L »'>»*» 

I yo 

.5  17.’ 
.5  1’4 
ii  I ’(S 
.5  1 /a 

.5 1 ao 
.5 1 a,’ 
.5 1 at 
.5 1 a.-j 
.5 1 a a 

.5  I VO 
.5  1 

.•t  ■-1 
.■IV  .*> 
.5  I V'  i 

.5  a 1 0 

.5.’,'<.) 


A. .> 

■5.’.’  ( 
.5j.’.5 


’.50 


...’a  > 

.-..'.a.' 

"V  I 

■•  .'VO 

.,..'V.5 
.5  .’99 
.•■lOo 

.5 'I  U ' 

.,-U‘O 
.-,'1  io 
.Olio 


ffUNI 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

print: 

N- ( av ( 

PRIHI 

PRINT 

PRINT 

PRINT 


TABd,;.’)  ; ■PRET  HOhRIi  = “ nil  (.^>  J “FEET  UriH  “i 
Pl(4)f“X  OF  OUNWATF  OPEN" 

TABCl?)  ; “HEIGHT  OF  .‘OOKOOI'G  EYE  = “ ; ID  ( 5 T T “ FT  I I “ 

TAB(L2)  J “MEAN  TIME  TO  PREPARE  ''JR$;“FOR  I AONI  H “ i BJ  ( A ) f “MIND  1 1 
TAP<l..9)i  Bt  ( 7 ) ; “FAI  I (S)  HAUING  “» 

HI (0) ; “FT. /MIN.  DFGGENT  GPEEB" 

TABCI  ;i)  ; “MAXIMUM  SHIP  GPEEB  FOR  SAFE  “TR$r“l.AUUGH  = “SriKVTfM- 
TAB<1.,2)  ; “RATEB  SEA  STATE  CAPABIEITY  = “ f BI  U 0 T ; “ FOOT  “JG'I. 

TAB(L2)  ; “MEAN  TIME  TO  PERFORM  STANUARB  rtANEUOER  = “ HU  ( 1 J < : “rl  TNU  1 1 
TAB<1..2)  ;P$;R$;  “WILL  BE  BEPEOYEB  TO  SEARCH  (JTIII  SHIP  = “J 

P2(A) :print:print 

TABd.  I ’ ; “RESUI  TS  Of  “ ;N4f  “SIMULATIONS:  “ 

I IBIS  PASS  IS  BBSI  QUAWn 

mou  ooPY  fimisH®  to  eoq 


l)IS9< 10) )/N4 


TAB ( I 1 ) J “ OVERAl  I FRAGT I ON  OF “ i TAB ( L3 ) ; 
TAB ( I I ) : “ MOB ' S RFSCUEB “ ; TAB  < L3 ) J “ # “ ; 
USING  /.192.N5  :PRINT  “*“ 

T AB  ( I.  1 ) ; “ BY  “ f Ri  i TAB  (13)5“  ******** " 


■ ******** • 


PR  TNI  '.PRINT 


PR  IN  I 
PR.INI 
PRINT 
f 'R  I N I 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
.IB-=(:  I 
PRINT 
■ la^-c./ 
PRINT 


T AB(Li ) ;r$: 

TAB(L.l  ) SR*; 

PR  TNT 

TABTLDf  MLB  SEEN 
TAB(L/.  )?■:  MOB  NOT 


BEPI  OYEB  “5 SOT  4) » "TIMFS" 

L AIJNCfT  F A T I EB  ‘ ; SO  ( 3 ) f “ T I MEIi 


;SB(CI.)f  “TIMES'' 


)TU|:  TO  SEA  STATE 


SEEN  " 588(02) V “ TIMES" 


I AB  < L A ) ? “ : “ : PR  TNT  TAB  ( 1.  A ) 5 " " 

TATKi  'T ) ;h* ; “ : “ SHi 

lAB(l  'T);*  TIMES*  5T  AB<  LA)  : TIMES" 

TAB (FA) 5 “ : “ 

TABd  1)5“ MOB  AL I OE  WHEN : “ 5 TAB ( LA ) 5 “ : » 
TABd  I ) 5 “BRIDGE  NOTTEIED" 5TAB(L4) 5 
'.COSOB  A400:REM  print  line  Of  NUMBERS. 
TAB  d I > 5 “ MOB  •'  S POS . REACHEB  “ 5 TAB  ( 1, 4 > 5 
TGOSUB  A 4 00 

T AB  ( L 1)5“  MOB  f 01 IND  “ 5 T AB  d,  4 ) 5 


.'PRINT  TABd  A) 


,)a5:  <;50S0B  A400 

PR 1 N I TAB  d I ) 5 “ ABOARB  RESCUE  BOAT “ 5 TAB ( L 4 ) 5 
,IO=4tGOSUB  A400 

PRINI  TABd  1)5  “MOB  SAOEi:i“5  TAB(L4)i- 
. If!"  S:  COSOB  A400 
TOP  LCt  TO  5 

prtni:next  i 
Ri:  turn 

REM 

REM  FUPMAIIEB  OUTPUT  SUBROUTINE 
REM 

REM  PRINTS  N0.»  MEAN>  MIN.j  ANB 
REM 


FOR  REGULAR  PRINT-OUT.  ******** 
MAX.  FUR  SEEN  ANB  NOT  SF:EN  . 


.‘TSOX*#*#.#* 

A4'",2X**##* 

A 4 AO  F OR  .J7^N;0  10  Cl 

.5470  PRINT  USING  A4G2  . SV  ( . 18  * 5 : PRINT 

.5-1/,’  IF  ABG(N9(  J8)  >>=IOOO(T  THEN  A47A 


USING  A4G0,TV< JO) 5 
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iMttlMiiiiiMi 


A474  PRINT  USING  A450 r N9  ( JS ) ; r19  ( JO  ) f 

,->475  GOTO  A478 

6476  PRINT  ■ ***  ■» 

.->478  J8=J8T5 

*480  IP  J7>G0  THPN  A490 

.-,482  PfMNT 

.6490  NEXT  J7 

A492  PRINTtPRINT  TAEt(LA);“f 

.6499  RPTURN 

-.500  REM 

6510  REH  ACGUMULATE  STATISTICS.  ♦♦JtoloK********************************* 

<6520  REM 

.6530  IF  J9>5  THEN  6560 

.6540  IF  F(CI).:C1  THEN  6560 

6550  J9=J9*5 

.6  560  S9  ( J9  ) =.59  ( J9 ) +C 1 

6570  T9< J9i-T9( J9)+T 

.6580  IF  T>N9(J9)  THEN  6590 

6585  N9(J9)=T 

6590  [F  T :.M9(J9)  THEN  6599 

.6595  M9(J9)”T 

.6599  RETURN 

-•000  REM  SET  UP  T3  ARRAY  ELEMENTS.  )K********!tt**)t(*)K**)t(****)t(** 

’010  REM 

7030  REM  Z=1  FOR  SEARCH  WITH  SHIP  WHEN  M08  'SEEN'. 

7040  REM  Z=2  FOR  SEARCH  WITH  BOAT  WHEN  MOB  'SEEN'. 


7050 

REM  Z=3  FOR  SEARCH  WITH  SHIP  WHEN  MOB  'NOT 

SEEN' . 

70.60 

REM  7~A  FOR  SEARCH  WITH  BOAT  WHEN  MOB  'NOT 

SEEN' . 

’070 

REM 

7080 

REM  SET  UP  T3(l)  S T3<2)  DEPENDING  UPON  Z. 

1 

7085 

REM 

7090 

ON  Z GOTO  7091 r7092»7093»7094 

7091 

GOSUB  7200 ‘.GOTO  7095 

7092 

GOSUB  7300: GOTO  7095 

709.3 

GOSUB  7400: GOTO  7095 

7094 

GOSUB  7300 

1 

1 

7095 

ON  Z GOTO  7100»7100F7500P7500 

7100 

REM 

7110 

REM  SET  UP  REMAINDER  OF  T3  ARRAY  FOR  'SEEN'. 

71 15 

REM 

7120 

T3(3)=T5( 10) -T 

7 1 30 

T3(4)=N2 

7140 

T3<5)=C0 

7 1 50 

T3(6>=0.5 

7160 

T3(7)=C0 

71  70 

T3(8)=0.5)KRND(  1 ) 

’180 

T3(9)=INT(T3(3>-T3<C1 )-T3(C2) ) 

7182 

IF  Z<r.2  THEN  7190 

7 184 

T3(9)  = INT(T3(9>/0(4)  ) 

7190 

T3(  10)>=P2(  12) 

7199 

RETURN 

7200 

REM 

7210 

REM  SET  UP  T3(l)  S T3<2)  FOR  SHIP — SEEN. 

■i 
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7220  REM 

7230  T3<C1 )=T5( 13) 

7240  T3(C2)--T5(5)+0.5*T5(8) 

7299  RETURN 

7300  REM 

7310  REM  SET  UP  TE(1)  & T3(2)  FOR  SEARCH  WITH  PDA  I . 
7322  REM 

7324  REM  TIME  TO  REPORT  TO  R.B. 

7326  REM 

7330  R(C1  )=C1  :GOSUEi  0100:T5(6)=-R3 

7332  REM 

7334  REM  TIME  TO  PREPARE  R.B. 

7336  REM 

7340  R(C1  )=I.U  (6)  :G0SUB  81 00 1 T5 ( 7 ) =R3 
7350  R3=R3+T5(6) 

7352  IF  R3::T5(8)  THEN  7356 

7354  R3^T5(8) 

7356  T3(C1)=R3 

7360  REM 

7362  REM  TIME  TO  LAUNCH  R.B. 

7364  REM 

7366  T5( 14)=( (T1 (8)+15)/Dl i8) )+0.5 

7370  IF  Z>C2  THEN  7390 

7380  T3 ( C2 ) =T5 ( 1 4 ) + ( T5 ( 5 ) +0 . 5*T5 ( 8 ) ) *0 ( 4 ) 

7389  RETURN 

7390  T3(C2)=T5(  14)  + <T5(C2)+T5(5)  f0.5)KT5(e)  ))K0(4) 

7399  RETURN 

7400  REM 

7410  REM  SET  UP  T3<1)  S T3(2)  FOR  SHIP--- NOT  BEEN, 

7420  REM 

7430  T3(C1  )-=T5(9) 

7440  T3(C2)=T5(C2>+T5<5) 

7499  RETURN 

7500  REM 

7510  REM  GET  UP  REMAINDER  OF  T3  ARRAY  FOR  'NOT  SEEN'. 
7512  REM 

7514  REM  Z^=3  FOR  SHIPf  Z=4  FOR  BOAT. 

7516  REM 

7520  T3(3)=T5( 10) -T 

7522  T3<4)=N2 

7530  T3(6)=T5(C1) 

7535  T3(7)=^T5(  13) 


7585  REM  COMPLETE  T3(9). 

7590  T3(9>-INT(T3(9)/0(4) )-Cl 

7599  RETURN 

'600  REM  DEBUG  #3  PRINT~OUT.  stoK************************** 

7610  PRINT  TAB<30)}*MAN  OOERBOARD  SIMULATION* {PRINT 

7620  PRINT  TAB<49) } ‘SIMULATION  SERIAL  NO.  MOB *» N3 { PRINT { PRINT 

7640  PRINT  "Ship:  '{Nif  ’fTKi);*  ‘fTKc^*);*  tiks); 

7650  PRINT  * ■;T1(12){*  ■{T1*»*  •iiN4»*  SIMULATIONS.* 

:’660  PRINT  *R.B.:*{ 

7670%  ♦♦♦.# 

7675  W=6:D-1 

7680  FOR  J=C1  TO  12 

^684  PRINT  USING  7670  f VI  < J ) f i REM  UUUWUUUWUUUUUUIUUUUUUIvUUU 

’688  NEXT  J 

’690  PRINT {PRINT 

7699  RETURN 

7800  REM 

7810  REM  HEADING  FOR  REGULAR  PRINT- OUT.  ****************************  > 

7820  REM 

7830  PRINT  TAB(30)f*MAN  OOERBOARD  SIMULTION ’{ PRINT 

7840  F'RINT  TAB(49) { "SIMULATION  SERIAL  NO.  MOB  * 5 N3 { PRINT { PRINT 

7899  RETURN 

7900  REM 

7910  REM  HEADINGS  FOR  COMPRESSED  PRINT-OUT.  ************************** 

7920  REM 

7925  PRINT {PRINT 

7930  PRINT  • S/N  NOTIFY  REACH  P FIND  IN  R.B.  SAVED* » 

7940  PRINT  * NOTIFY  REACH  P FIND  IN  R.B.  SAVED" 

7950  PRINT {PRINT 

7999  RETURN  I 

8000  REM  NORMAL  DISTRIBUTION.  ****************************** 

8010  R1==RND(1) 

8020  IF  R1>C0  THEN  8030 

8025  R1=L9  ; 

0030  R2=-RND<1) 

3040  VI  •■::SaR(-C2*L0G(Rl ) )*C0S(C9)KR2) 

8050  R3=V1*R(4)+R(C1 ) 

8060  IE  R3>R(C2)  THEN  8070  ; 

8065  R3=R(C2)  i 

8070  IF  R3<R(3)  THEN  8099 

8080  R3=R(3) 

8099  RETURN 

3100  REM  FRANK  NICKELS'  NORMAL  BIST.  *********************** 

8110  R(2)==C0 

8120  R(3)=C2»R(C1 ) 

8130  R<4)  -0.5*RfCl ) . 

8199  GOTO  8000 {REM  COMPUTE  NORMAL  DIST.  8 RETURN.  | 

8200  REM  RAYLEIGH  DIST.  ************************************ 

8210  R1=RND(1) 

3220  IF  R1>C0  THEN  8230 

8225  R1=L9  I 

8230  R3=R(C1 )*SaR<-C2#L0G(Rl ) > 

0299  RETURN  i 
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b;?  10 
0:599 

f!-»00 

B4  10 

B4.?0 
i)4:50 
B4  40 

8499 

8500 
85.1 0 
8520 
85:50 
8540 
3550 
8560 
8570 
8580 
859'^ 
8700 

87  10 
8720 
87:50 
8740 
8 ‘MS 
8750 
8760 
8770 

8799 

8800 

88  20: 
8820; 
88:55 
8840 
8850 
8860 
8880 
8890 
8899 
9000 
9005 
9010 
90 1 4 
9016 
9020 
9022 
9024 

90:50 

9032 

9034 

9036 

9040 

9045 


REM  UNilEORM  DlSr.  ♦)(t**!((***)((!(()tt***)((*)((*******)((*#*)*;iHit!**ir»)('* 

R3^R  ( 82 ) K R ( 3 ) - R ( 2 ) ) *RNi:i  ( 1 ) 

RETURN 

REM  SUROIOOE  TIME  (HYPERTHERMIA).  i(ii)liit****iiii******i^****** 
R(r2)=c8)X(0(ci  )*(si+S2*o<(;i  )*v(ci ) )~s;5) 

R(3)=t:8*(0(Cl  )*(S4*0(C1  )*0(C1  )"85)  EG6) 

R(C1  )==^0.5)*((R<C2)  fR(3)  ) 

R ( 4 ) =0 . 25*  ( R ( 3 ) -R  ( r:2  ) ) 

GOTO  8000JREM  COMPUTE  NORMAL  DIST.  & RETURN- 

REM  5UR0I0AE  TIME  (FLOTATION).  *)|<)((*)K**iL!X***)K'K*)K*****)*(#* 

IF  RNTKIX-P  THEN  8560 

REM  MAN  NOT  WEARING  PFD.  

r(C2)=C2 
R ( 1 ) -T5 ( 3 ) 

(50T0  8200 : REM  COMPUTE  RAYI.EIGH  DIST.  X RETURN. 

REM  MAN  WEARING  PFD.  

F(C2)=C1 
R(C1 )=T5(4) 

GOTO  8200:REM  COMPUTE  RAYLEIGH  DIST.  X RETURN. 

REM  DEBUG  PRINTOUTS.  He******************************************* 
PRINT  ‘CONSTANT  DURING  A GIVEN  SIMULATION." 

PRINT  ‘SEASON’ ;TAB( 17) { ‘WATER  TEMP.’f 

PRINT  TAB(33) f ‘WAVE  HE IGHT ‘ H AB ( 49 ) 5 “ T ( S ) H.T.'J 

PRINT  TAB(65)»‘A  FOR  N.E.‘ 

CONVERT  S TO  S« X ************* > 

PRINT  S$;TAB( 17) J V( 1 ) »TAB(33) 5 V(2) 5 
PRINT  TAB(49) f T5 ( 1 0 ) » TAB ( 65 ) » N2 
PRINT ‘.PRINT 
RETURN 

REM  DEBUG  PRINT-OUT  (END  OF  EACH  SIMULATION). 

;(**# 

:(***i*.*** 

D=:=C():W=:3 
FOR  J=C1  TO  6 

PRINT  USING  8820»F( j) ; :rem  WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

NEXT  J 

PRINT 

PRINT  USING  8830f TPT0»R3» V(C2) :REM  WWWWWWWWWWWWWWWWWWWWWWWW 
RETURN 

REM  INITIALIZE  Kt***!************************************ 

B9=1E30 

CO-^OlCl^l  :C2=2 
C3=ll :C4=10 
C8--=60:C9=3. 14159 
Cl$=:‘  CHARACTERISTICS.’ 

DO ( C 1 ) = 1 : DO ( C2 ) = 1 0 : DO ( 3 ) = 1 00 : DO ( 4 ) = 1 000 : DO ( 5 ) = 1 0000 
D0(6)=l .E5:D0(7)=1 .E6JD0(8)=1 .E7:D0(9)=1 .E8:D0( 10)=1 .E9 
F1=254:G1=6 

H$=^‘  NO.  MEAN  MIN.  MAX.  ‘ 

Ki=‘KNOTS‘ 

I 9=lE-30 

M1=33:M2-12 

M3=13:M4=17:M5=8 


i 

i 

i 


'1 
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9050  p;5--=0 . 9S<?5 : P4“0 . 0095 

9052  P5-0 . 0]  68  .*  P6=0 . 0008 

9060  P*='PROEiAPIl..ITY  ■ 

9062  R*~"Rt:SCUE  BOAT  • 

9064  81=0.0024:S2':'^8.  lE-6:S3-==0. 1 

9066  S4=5. 9E-5:  55=0. 10.1 : 86=2.25 

9070  5t='SI0NIFICANT  WAVE  HEIGHT" 

9080  X0=19 

9090  Rf M BET  UP  PLANK  OAR I ABLE. 

9092  mt-' 

9099  RETURN 

9200  REM  HOME  i ERASE  TV.  *iK>t(*******il(****3ti**iK******$****************** 
9210  PRINT  CHR$(5) 

9220  RETURN 

9400  REM 

9410  REM  CORE  OF  SIMULATION.  **********************$******** 

9412  REM 

9414  REM 

9416  REM 

9418  REM 

9420  REM 

9422  REM 

9450  T2=T3 (Cl ) +T3 ( C2 ) : T4=T2 

9452  IF  T2.>T5(5)  THEN  9465 

9454  IF  T5<4><=T3(5)  THEN  9480 

9456  IF  T5(9)<C1  THEN  9475 

9440  FOR  K=C1  TO  T3<9)  STEP  C2 

9442  T2=T2+<C2*(T3(6)-T3(8)  )H3(7)  )/V(4) 

94  44  IF  RNIK  1 )<  = T3(10)  THEN  9485 

9446  IF  K=T3(9)  THEN  9470 

9448  T2=T2+(C2*T3(8)1T3(7)  ),/V(4) 

9450  IF  RNIK  1 )<=T5( 10)  THEN  9490 

9452  NEXT  K 

9460  F<4)=3:RETURN 

9465  F( 4 )=1 : RETURN 

9470  F(4)=2:RETURN 

9475  F(4)=5:REIURN 

9480  F(4)=8:G0T0  9499 

9485  F(4)=9:G0T0  9499 

9490  F(4)=10 

9499  RETURN 

9500  REM  DISTANCE  OF  VISIBILITY  FROM  SHIP.  ***********)!(***** 

7510  V<5)=1000fl00»Tl<4) 

9512  IF  V(5)<2500  THEN  9520 

9514  V(5)=2500 

9520  IF  T5(15).:  V(5)  THEN  9550 

9550  V<5)=T5(15) 

9550  REM  DISTANCE  OF  VISIBILITY  FROM  BOAT.  ***************** 

9560  V(6)=1000+100»D1(5) 

9562  IF  V(6) <2500  THEN  9570 

9564  V(6)=2500 

9570  IF  T5(15)>V(6)  THEN  9599 

9580  V(6)=T5(15) 

9599  RETURN 
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1.  SHIP  SLOWS  OR  TURNS. 

2.  SHIP  OR  BOAT  RETRACES  SHIP'S  PATH. 

5.  SHIP  OR/AND  BOAT  SEARCHES  FOR  MOB. 

4.  SHIP  OR  BOAT  RECOVERS  MOB  OR  MOB  LOST. 


APPENDIX  F:  Man  Overboard  Output  Program  Listing 


li 


1 


I 


i 


J 

10 
12 
14 
16 
18 
20 
22 
24 
26 
2B 
20 
22 
24 
i6 
28 
40 
60 
70 
100 
1 1 0 
120 
1 "^2 
124 
126 
130 
140 
150 
152 
154 


REM  MAN  OVERBOARD  REOOLAR  PRINT-OUT  PFUJGRAM  2 MARCH  1978 

REM 

REM  THIS  PROGRAM  SERVES  TWO  PURPOSES. 

REM 

REM  1,  TO  PROVIDE  A STAND-ALONE  PROGRAM  TO  PRODUCE  THE  REGULAR 
REM  PRINT-OUT  REPORTS  FROM  THE  OUTPUT  SAVED  ON  DISK. 

REM 

REM  2.  TO  PROVIDE  A SUBSTITUTE  FOR  THE  REGULAR  PRINT-OUT 
REM  IN  THE  MAN  OVERBOARD  SIMULATION  PROGRAM. 

REM 

REM 

REM  THE  SUBROUTINES  6100-6299  AND  6400-6499  CAN  REPLACE  THE 
REM  CORRESPONDING  SUBROUTINES  IN  THE  MAN  OVERBOARD 
REM  SIMULATION  PROGRAM. 

REM  THE  SUBROUTINE  7700-7799  IN  THE  MAN  OVERBOARD  SIMULATION 
REM  PROGRAM  CAN  THEN  BE  DELEETED. 

REM 

DIM  B*64  » H$64  » K*64 . P$64  » R$64  r S$64 
SELECT  PRINT  005 ( 80 ): PRINT  HEX(02) 

DIM  DOdO)  .D1(15)FM9(10>  »N9(10)  >P2(15> 

DIM  S8(4) f S9( 11 ) .T1 < 12) f T5( 15) rT9( 10) 

co=o:ci=i :c2=2 

DO(ci  )-ci  :do(C2)=io:do<3)=ioo:do<4)=ioo() 

DO  ( 5 ) = 1E4  : DO  ( 6 ) =1E5 : DO  ( 7 ) ==1E7 

D0(8)=1E7:D0(9)=1E8:D0( 10)=1E9 

INPUT  "SIMULATION  OUTPUT  FILE  NAME"»A$ 

SELECT  *1  B20 

DATA  LOAD  DC  OPEN  R*1,A$ 

• 

H$='  NO.  MEAN  MIN.  MAX.  ■ 


155  K*=’ KNOTS" 

156  P$="PROBABIL.ITY  " 

158  R$=^"  RESCUE  BOAT  " 

159  S$="SIGNIFICANT  WAVE  HEIGHT" 

178  DATA  LOAD  DC  *1 . N1 . N2 » N2 r N4 5 IF  END  THEN  SOOJREM  WWWUWWWUWWUWWUUU 

180  FOR  I=C1  TO  12 

190  DATA  lOAD  DC  *1 r T1 ( I ) » D1 ( I ) » P2 ( I ) . T5 ( I ) J REM  WWWUWWWWWWWWWWWUWW 

200  NEXT  I 

210  FOR  1=12  TO  15 

220  DATA  LOAD  DC  #1 »D1 < I ) f P2a ) »T5( I ) :REM  UWUUWWUUWWWUWWWUWWWWWWWU 

220  NEXT  I 

240  DATA  LOAD  DC  *lrTl* 

250  FOR  I=C1  TO  10 

260  DATA  LOAD  DC  #1 , S9 ( I ) » T9 < I ) » M9 ( I ) » N9 ( I ) : REM  WUWWUWUUUJWWUWUWW 

270  NEXT  I 

280  DATA  LOAD  DC  f 1 f S8 ( 1 ) r S8 ( 2 ) f S8 ( 2 ) r 88 ( 4 ) : REM  UUUUUUUUUUUUUWUUUUUU 

290  DATA  LOAD  DC  *1 >S9( 11 ) tREM  UUUUUUUUUUUUUUUiUUUUUUUUUUUUUUUWUUUUUU 

200  SELECT  PRINT  215(160) 

210  GOSUB  6 1 00 : REM  PRINT  OUTPUT  REPORT. 

220  SELECT  PRINT  005(80) 

220  GOTO  1 70 

400  PRINT  "CAN'T  OPEN  FILE." 

410  STOP 


I 
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soo  I'KiHi  'f  rNtSHt::ri.  ■ 

'.10  iirtvft  sAVfi  nr  ri.nsi:  Al  l. 

s.’o  ;iTOf' 

..>00  F'RINl  •lUmn  Fill  IRROR." 

610  srof'  ' 

1 00  RF  H 

Rt  M Rl.  Kill  AR  I 'R  I N I OUI.  *t**>li}tii.t*tt*****$*t*********  If*********** 

6 I ,’0  RFM 

,•;.  I 's'ii.t* 

.-.i  ’>■  I i+5:i  v li  i'.?9:i.4=l  in9si.,s=i  ii38ji<)=L4 i 2B 

I 40  F'RINI  ;RR  I Nl  IF'RINl 

I.OSDII  7H00:Rt:M  PR  I Ml  HE.  AI.IING  WITH  S/N. 

..141  PRTNI PRINT  tPR  INI  I AEt<  I I I } T1. 1. 

.^I4.4  PRIMIIPRINI  TAIKP.M  J ‘I  ENGIH  - ‘ r T I ( C 1 ) 5 ■ FEET " J 
,>118  PRINT  TAIuLri)  ; "SPE  EM  ■-.=  "iTKC^iJN* 

PRTNI  TAM<1  2)  f "NAVIGATIONAL.  HEADING  ERROR  = " f 1 1 ( 1 2 ) r " DEGREE  ( £i ) " 

.^IJj;’  PRINT  TAMa  2.)  JP$;  "SHIP  WILL  BE  RESTRICTED  FROM  TURNING  "E 
.>lf>4  PRINT  USING  6 1 2S  r P2  ( G ) : REM  UUWUWUUUUWWWUUUUWWUWWUUWWUUUUWUUWUWWU 
..IS6  PRINT  TAM(1 2) fp$; "SHIP  WILE  RECOVER  MOB  DIRECTLY  = “i 
..is:’  print  using  612SfP2(  10>  :REM  WU'WWWWWWWWWWWWWWWWWWWWWWWWUWWWWWWUWW 
..ISO  print:  PR  I NT  : PR  I NT  tab  ( L I ) r R$ 

PRINT  IAM(L2)  J ‘speed;  * J Ml  ( C1  ) f K$  f * IN  CALM  WATER" 

.■•IP,.''  PRINT  TAB  (I  2 IS  )r  Dl(C2)»K$f“  IN  8'  "rS^f"  SEA" 

■1.1  PRINT  TABd. 2) ; ‘FREEBOARD  = ‘ > D1 ( 3 ) 5 " FEET  WITH  "F 
PRINT  BI(4)J"".i:  OF  GUNWALE  OPEN" 

.■.l.-.ii  PRINT  TAB(L2F  f ‘HEIGHT  OF  LOOKOUT’S  EYE  ==  ‘ J Dl  ( S ) f " FEET  " 

.S1,’0  PRINT  TAB(L.2)  J ‘MEAN  TIME  TO  PREPARE  "rR^y'FOR  LAUNCH  - " y D1  ( 6 ' f ‘ M INK  (I  B " 

.1.’?  PRINT  TAP(L2);  D1  ( 7 ) f " FALL  ( S ) HAVING  "y 
..r’4  PRINT  Dl (0) y "FT./MIN.  DESCENT  SPEED" 

.•>1'.-.  PRINT  TAB<L2'>  y "MAXIMUM  SHIP  SPEED  FOR  SAFE  "yR$y"IAUNCH  = "yBl(9);Ki 

.M  'A  PRINT  TAB(L2)  y ‘RATED  SEA  STATE  CAPABII.IIY  = * 5 Dl  < 10 ) f * FOOT  ‘iS-t 

.■■100  PRINT  TABa..2)  ; ‘MEAN  TIME  TO  PERFORM  STANDARD  MANEUVER  = ‘ y Dl  < I 1)  ? ‘MINILI 1 

.>d!2  PRINT  TAB(L.2)  JPtJR*! ‘WILL  BE  DEPLOYED  TO  SEARCH  WITH  SHIP  = "y 
. , I 0 4 f 'R I NT  P2  ( 7, ) : PR  T NT  : PR  I NT 

.IS,-.  PRINT  lABCI  1)  y "RESULTS  OF  " 5 N4  y " SIMULATIONS  t “ 

..100  PRINTIPRINT 
1 VO  N ( so  ( S ) 1 S9  ( 1 0 ) ) .-  N4 

■.  IV.'Mt.ttt 

^>191  PPINI  TAB(L  1 ) y "OVERALL  FRACT  ION  OF  " y TAB  ( 1.3 ) J "********  " 

I Of,  F R INI  T AB  < I I ) S " MOB  ' 3 RESCUED  " y TAP  ( L.3  ) y " * " y 

f-RTNl  USING  A 1 92  y N y : PR  INT  ‘ * " 1 REM  WWWWWWWWWWWWWWWWWWWWWWWWWUWWWW 
■ >10  FRIMI  IAB<I.  li;"BY  ‘ y Rli  y I AB » L3 ) y ‘ ********  " 

.>■’.20  PRINMPRTNT 

.■>22:’  PRINI  I AB(l  1 ) JR*y ‘DEPl  OYED  ‘ f SO  ( 4 > f " TIMES  " 

.>224  PRINI  lABd  I ) yR-Fy  "LAUNCH  FAIIED  ‘ 5 SO  ( 3 ) I " T IMES  DUE  10  SEA  STATE* 

,>22.>  PRINI  :pRI.4T 

.>2S.‘  IRINI  IABd4);‘  MOB  SEEN  ‘ y SO  ( C 1 ) y ‘ T I MES  ‘ y 

>:'’S1  IRINI  IAB(L6)S‘:  MOB  NO  I SEEN  ‘ y SO  ( C2  ) y ‘ T IMES  ‘ 

'>•?>>■>  PRINI  I ABd  A)  y ‘ * :print  tab(la);":‘ 

A2A2  PRINI  I ABd  4) SH*y * : " IH* 

.■.:>64  PRINI  1AB(|4);"  TIMES"  ;TAB<LA>  ; ‘ : TIMES" 

.>2A.9  PRINI  FAB(lA)y":‘ 

,:’All  PRINI  rAB<L1>y"M0B  ALIVE,  WHEN  I " I TAB  ( LA  ) y " I " 1 PRINT  TABdAlf":" 

F-2 
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6270  PRINT  TABd  l ) » *EiRniGt;;  NOTIF lEdi " » TAB ( L4  ) ? 

6272  Ja=Ci:GOSUB  6400:Rt:M  PRINT  LINE  GF  NUMBERS. 

6274  PRINT  TAB < L.  1 ) 5 ' MOB ' S POS.  REACHED " H AB < 14  ) > 

6276  J8^C2:G0SUB  6400 

rt280  PRINT  TAB  ( 1. 1 ) » * MOB  FOUND  * i TAB  ( L4  ) f 
6282  J8=--:3:G0SIIB  6400 

6286  PRINT  TAB(L.t ) 5 'ABOARD  RESCUE  BOAT '}  TAB  ( L4  ) E 
6288  J8=^4:G0SUB  6400 

6290  PRINT  TAB(L1 ) » 'MOB  SAOED" f TAB(L4 ) i 

6292  JS^^S:G0SUB  6400 

6294  FOR  I=C1  TO  5 

6296  print: NEXT  I 

6299  RETURN 

6400  REM 

6410  REM  FORMATTED  OUTPUT  SUBROUTINE  FOR  REGULAR  PRINT-OUT.  Ht******* 

6420  REM 

64T0  REM  PRINTS  N0.»  MEAN.  MIN..  AND  MAX.  FOR  SEEN  AND  NOT  SEEN. 

6440  REM 

6450X**#*.## 

64S2%tt#** 

6460  FOR  I7--C0  TO  Cl 

6470  PRINT  USING  6452 y S9 ( JB ) r : REM  UUUUUUUUUWUUUUUUUUUUUWUUUUUUUUUUU 

6471  PRINT  USING  6450 . T9 ( JB ) > : REM  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 

6472  IF  ABS<N9(J8)  )::  =10000  THEN  6476 

6474  PRINT  USING  6450 . N9  ( J8 )» M9  ( J8 )?:  REM  WWWWUlWWWUWWWWUWWWWWWWWWWWW 

6475  GOTO  6478 

6476  PRINT  * ***  '» 

6478  J8=J8+5 

64B0  IF  J7:C0  THEN  6490 

6482  PRINT  'I'; 

6490  NEXT  J7 

6492  PRINT : PRINT  TAB ( L6 )i“ t" 

6499  RETURN 

7800  REM 

7810  REM  HEADING  FOR  REGULAR  PRINT-OUT.  )|<****)|(*)«*i(()((»*)K**)«*)K)K)*(******* 

7820  REM 

7830  PRINT  TAB(30)fMAN  OOERBOARD  SIMULATION *: PRINT 

7840  PRINT  TAB(49) f 'SIMULATION  SERIAI  NO.  MOB '» N3 t PRINT : PRINT 

7899  RETURN 


